











































The Reasoned Schemer 



Daniel P. Friedman, William E. Byrd, 

and Oleg Kiselyov 
























The Reasoned Schemer 



The Reasoned Schemer 

Daniel P. Friedman William E. Byrd Oleg Kiselyov 


Drawings by Duane Bibby 

The MIT Press 

Cambridge, Massachusetts 
London, England 

0 2005 Massachusetts Institute of Technology 

All rights reserved. No part of this book may be reproduced in any form by any electronic 
or mechanical means (including photocopying, recording, or information storage and retrieval) 
without permission in writing from the publisher. 

MIT Press books may be purchased at special quantity discounts for business or sales pro¬ 
motional use. For information, please e-mail special_salesSmitpress.mit.edu or write to 
Special Sales Department, The MIT Press, 55 Hayward Street, Cambridge, Mass. 02142. 

This book was set in Computer Modern by the authors using Printed and bound in the 

United States of America. 

Library of Congress Cataloging-in-Publication Data 
Friedman, Daniel P. 

The reasoned schemer / Daniel P. Friedman, William E. Byrd, and Oleg Kiselyov; drawings 
by Duane Bibby. 

p. cm. 

Includes index. 

ISBN 0-262-56214-6 (pbk. : alk. paper) 

1. Scheme (Computer program language) I. Byrd, William E. II. Kiselyov, Oleg. III. Title. 

QA76.73.S34F76 2005 

005.13'3—dc22 

2005051092 

10 987654321 


To Mary, Sarah, Rachel, Shannon and Rob, and to the memory of Brian. 



To Mom, Dad, Brian, Mary, and Renzhong. 



(Preface ixl 
((1. Playthings) 21 

((2. Teaching Old Toys NewTricksf 161 

((3. Seeing Old Friends in New Ways) 261 

((4. Members Onlvf 461 
((5. Double Your Fun) ((5. 601 

((6. The Fun Never Ends ...I 761 

((7. A Bit Too Much) 86) 

((8. Just a Bit Morel 1081 

((9. Under the Hooch 1301 

((10. Thin Ice) 144) 

(Connecting the Wires 158) 

(Welcome to the Club 162) 

(Index 164)) 
















The goal of this book is to show the beauty of relational programming. We believe that it is 
natural to extend functional programming to relational programming. We demonstrate this by 
extending Scheme with a few new constructs, thereby combining the benefits of both styles. 
This extension also captures the essence of Prolog, the most well-known logic programming 
language. 

Our main assumption is that you understand the first eight chapters of The Little Schemer'. 

The only true requirement, however, is that you understand functions as values. That is, a 
function can be both an argument to and the value of a function call. Furthermore, you should 
know that functions remember the context in which they were created. And that's it we assume 
no further knowledge of mathematics or logic. Readers of the appendix Connecting the Wires, 
however, must also have a rudimentary knowledge of Scheme macros at the level of let, and, 
and cond. 

In order to do relational programming, we need only two constants: #s and #u, and only three 
operators: , fresh, and conde. These are introduced in the first chapter and are the only 
operators used until chapter 6. The additional operators we introduce are variants of these three. 
In order to keep this extension simple, we mimicked existing Scheme syntax. Thus, #s and #u 
are reminiscent of the Boolean constants: #t and #f; fresh expressions resemble lambda 
expressions; and conde expressions are syntactically like cond expressions. 

We use a few notational conventions throughout the text primarily changes in font for 
different classes of symbols. Lexical variables are in italics, forms are in boldface, data are in 
sans serif, and lists are wrapped by boldfaced parentheses 'O'. A relation, a function that 
returns a goal as its value, ends its name with a superscript 'o' (e.g., car° and nullo). We also 
use a superscript with our interface to Scheme, run, which is fully explained in the first chapter. 
We have taken certain liberties with punctuation to increase clarity, such as frequently omitting 
a question mark when a question ends with a special symbol. We do this to avoid confusion 
with function names that might end with a question mark. 

In chapters 7 and 8 we define arithmetic operators as relations. The +° relation can not only 
add but also subtract; *° can not only multiply but also factor numbers; and logo can not only 
find the logarithm given a number and a base but also find the base given a logarithm and a 
number. Just as we can define the subtraction relation from the addition relation, we can define 
the exponentiation relation from the logarithm relation. 

In general, given (*° x y z) we can specify what we know about these numbers (their values, 
whether they are odd or even, etc.) and ask *° to find the unspecified values. We don't specify 
how to accomplish the task: rather, we describe what we want in the result. 



This book would not have been possible without earlier work on implementing and using 
logic systems with Matthias Felleisen, Anurag Mendhekar, Jon Rossie, Michael Levin, Steve 
Ganz, and Venkatesh Choppella. Steve showed how to partition Prolog's named relations into 
unnamed functions, while Venkatesh helped characterize the types in this early logic system. 
We thank them for their effort during this developmental stage. 

There are many others we wish to thank. Mitch Wand struggled through an early draft and 
spent several days in Bloomington clarifying the semantics of the language, which led to the 
elimination of superfluous language forms. We also appreciate Kent Dybvig's and Yevgeniy 
Makarov's comments on the first few chapters of an early draft and Amr Sabry's Haskell 
implementation of the language. 

We gratefully acknowledge Abdulaziz Ghuloum's insistence that we remove some abstract 
material from the introductory chapter. In addition, Aziz's suggestions significantly clarified 
the run interface. Also incredibly helpful were the detailed criticisms of Chung-chieh Shan, 
Erik Hilsdale, John Small, Ronald Garcia, Phill Wolf, and Jos Koot. We are especially grateful 
to Chung-chieh for Connecting the Wires so masterfully in the final implementation. 

We thank David Mack and Kyle Blocher for teaching this material to students in our 
undergraduate programming languages course and for making observations that led to many 
improvements to this book. We also thank those students who not only learned from the 
material but helped us to clarify its presentation. 

There are several people we wish to thank for contributions not directly related to the ideas 
in the book. We would be remiss if we did not acknowledge Dorai Sitaram's incredibly clever 
Scheme typesetting program, SLAT. We are grateful for Matthias Felleisen's typesetting 
macros (created for The Little Schemer), and for Oscar Waddell's implementation of a tool that 
selectively expands Scheme macros. Also, we thank Shriram Krishnamurthi for reminding us 
of a promise we made that the food would be vegetarian in the next little book. Finally, we 
thank Bob Prior, our editor, for his encouragement and enthusiasm for this effort. 

Food appears in examples throughout the book for two reasons. First, food is easier to 
visualize than abstract symbols: we hope the food imagery helps you to better understand the 
examples and concepts. Second, we want to provide a little distraction. We know how 
frustrating the subject matter can be, thus these culinary diversions are for whetting your 
appetite. As such, we hope that thinking about food will cause you to stop reading and have a 
bite. 

You are now ready to start. Good luck! We hope you enjoy the book. 


Bon appetit! 


Daniel P. Friedman 
William E. Byrd 
Bloomington, Indiana 



Oleg Kiselyov 
Monterey, California 



The Reasoned Schemer 















Welcome. 



It is good to be here. 


Have you read The Little SchemerV 



1 Or The Little LISP*'. 


Are you sure you haven’t read 
The Little Schemer ? 



Do you know about 

Lambda the Ultimate? 



Are you sure you have read that much of 
The Little Schemer ? 



Absolutely.! 


! If you are familiar with recursion and know that functions 
are values, you may continue anyway. 


What is #s T 


It is a goal that succeeds. 



#s is written succeed. 


What, is the name of #s 


succeed , 

r 

because it succeeds. 



It is a goal that fails; it is unsuccessful. 



#u is written fail. 





What is the name of #u 


fail , 

because it fails. 


What is the value of* 

(run* (q) 

#u) 

0. 

since #u fails, and becaiLse the exprcssion t 

(run* (q) g ...) 

has the value () if any goal in g ... fails. 


‘ This expression is written (run #f ( q ) #u). 

^ This expression is written (run #f ( q ) g ...). 

What is the value of * 

(run* (q) 

(= #t ?)) 

" («), 

because #t is associated with q if (= #t q) 
succeeds. 

^ (= v w) is read “unify v with uT and = is written — 


What is the value of 

(run* (q) 

0. 

because the expression 

#u 

(= #t ?)) 

(run* (q) g ... (= #t q)) 
has the value () if the goals g ... fail. 

Wliat. value is associated with q in 
(run* {q) 

13 

#t (a Boolean' value), 
because the expression 

# s 

(= #t q)) 

(run* ( q ) g ... (= #t q)) 

associates #t with q if the goals g ... and 
(= #t q) succeed. 


^ Thank you George Boole (1815-1864). 


14 


(#t), 

because #s succeeds. 


Then, what is the value of 


(run* (g) 

# s 

(= #t $)) 


What value is associated with r in' 


(run* (r) 

#s 

(= corn r)) 


corn f , 

because r is associated with corn when 
(= corn r) succeeds. 



corn is written as the expression (quote corn). 


^ It should be clear from context that corn is a value; it is 
not an expression. The phrase the value associated vntk 
corresponds to the phrase the value of\ but where the outer 
parentheses have been removed. This is our convention for 
avoiding meaningless parentheses. 


What is the value of 


(run* (r) 

#s 

(= corn r)) 


(corn), 

because r is associated with corn when 
(= corn r) succeeds. 


What is the value of 


(run* (r) 

#u 

(= corn r)) 



0 . 

because #u fails. 


What is the value of 

(run* (<7) 

#s 

(= #f q)) 


because #s succeeds and because run* 
returns a nonempty list if its goals succeed. 


Does 1D It depends on the value of x. 

(= #f x) 

succeed ? 


Does 


(let (( 2 ; #t)) 
(= #f x))t 


succeed? 


^ This let expression is the same as 
((lambda (x) (= #f x)) #t). 

We say that let binds x to #t and evaluates the body 
(= #f x) using that binding. 


Docs 


(let ((x #f)) 
(= #f x)) 


succeed? 


20 


No, 


since #f is not equal to #t. 


21 


Yes, 


since #f Ls equal to #f. 


What is the value of 

(run* (x) 

(let ((x #f)) 

(= #t x))) 


22 


0 , 


since #t is not equal to #f. 


Wliat value is associated with q in 

(run* (</) 

(fresh (x) 

(= #t x) 

(= #t q ))) 


23 




because ‘(fresh (x ...) g ...)’ binds fresh 
variables to x ... and succeeds if the goals 
g ... succeed. (= v x) succeeds when x is 
fresh. 


When is a variable fresh? 


24 


When it has no association. 


Is x the only variable that starts out fresh in 

(run* (q) 

(fresh (x) 

(= #t x) 

(= # t q))) 


25 


No, 


since <7 also starts out fresh 


The Law of Fresh 


If x is fresh, then (v x) succeeds and associates x with v. 







What value is associated with q in 

(run* ( q) 

(fresh (rr) 

(= x #t) 

(= #t q))) 


26 


#t, 


because the order of arguments to 


does 


not matter. 


What value is associated with q in 

(run* ( q ) 

(fresh (z) 

(= x #t) 

(= q #t))) 


27 


n, 


because the order of arguments to 
not matter. 


does 


The Law of - 


(v w) is the same as (w v). 


What value is associated with x in 
(run* (x) 

#s) 


28 


-0 > 


r 

a symbol representing a fresh variable.* 


^ This symbol is _.0, and is created using (reify-name 0) 
See the definition of reify-name in frame 52 of chapter 9 
(i.e., 9:52). 





What is the value of 


29 


“0 



(run* (a:) 

(let ((x #f)) 
(fresh (x) 


#t *)))) 


since the x in (= #t x) is the one 
introduced by the fresh expression; it is 
neither the x introduced in the run 
expression nor the x introduced in the 
lambda expression. 


What value is associated with r in 

(run* (r) 

(fresh (x y) 

(cons x (cons y ()t)) r))) 



For each different fresh variable there is a 
symbol with an underscore followed by a 
numeric subscript. This entity is not a 
variable but rather is a way of showing 
that the variable was fresh. 1 We say that 
such a variable has been reified. 



() is (quote ()). 


^ Thank you, Thoralf Albert Skolexn (1887-1963). 


What value is associated with 5 in 

(run* (s) 

(fresh (t «) 

(= (cons t (cons u ())) s))) 



The expressions in this and the previous 
frame differ only in the names of the 
lexical variables. Therefore the values are 
the same. 


What value is associated with r in 

(run* (r) 

(fresh (x) 

(let ((</ x)) 

(fresh (x) 


32 


(cons y (cons x (cons y ()))) r))))) 


“0 “I -o / ’ 

Within the inner fresh, x and y are 
different variables, and since they are still 
fresh, they get different reified names. 


What value is associated with r in 



(run* (r) 

(fresh (x) 

(let ((y x)) 

(fresh (x) 

(= (cons x (cons y (cons x ()))) r))))) 


“0 “1 “0 / • 

x and y are different variables, and since 
they are still fresh, they get different 
reified names. Reifying r’s value reifies the 
fresh variables in the order in which they 
appear in the list. 






What is the value of 


3i 


(run* (q) 

(= #f ,) 

(= #t q)) 


()■ 

The first goal (= #f q) succeeds, 
associating #f with < 7 ; #t cannot then be 
associated with < 7 , since q is no longer 
fresh. 


What is the value of 

(run* (q) 

(= #f <]) 

(= #f q)) 



In order for the run to succeed, both 
(= #f q) and (= #f q) must succeed. The 
first goal succeeds while associating #f 
with the fresh variable q. The second goal 
succeeds because although q is no longer 
fresh, #f is already associated with it. 


What value is associated with q in 


run 


(?) 


(let ((x q)) 

#t x))) 


36 


#t, 


because q and x are the same 


What value is associated with r in 

(run* (r) 

(fresh (x) 

(= X r)t)) 


because r starts out fresh and then r gets 
whatever association that x gets, but both 
x and r remain fresh. When one variable 
is associated with another, we say they 
co-refer or share. 


What value is associated with q in 

(run* ( q) 

(fresh (x) 

(= #t x) 

(= * *))) 



#t, 

because q starts out fresh and then q gets 
x’s association. 


What value is associated with q in 

(run* (q) 

(fresh (x) 

(= X q) 

(= « *))) 


because the first goal ensures that 
whatever association x gets, q also gets. 


Are q and x different variables in 

(run* (?) 

(fresh (x) 

(= #t x) 

(= x q))) 


40 


Yes, they are different because both 
(run* (?) 


(fresh (x) 


{eq? x q) q))) 


and 


(run* (?) 

(let ((x ?)) 

(fresh (?) 

(= {eq? x q) x)))) 

associate #f with ?. Every variable 
introduced by fresh (or run) is different 
from every other variable introduced by 
fresh (or run).* 


Thank you, Jacques Her brand (1908 1931). 


What is the value of 

(cond 

(#f #t) 

(else #f)) 


41 


#f, 


because the question of the first cond line 
is #f, so the value of the cond expression is 
determined by the answer in the second 
cond line. 


Which #f is the value? 


42 


The one in the (else #f) cond line. 


Does 


(cond 


(#f #s) 
(else #u)) 


succeed? 


43 


No, 


it fails because the answer of the second 
cond line is #u. 





Does 


4*1 


(cond e 

(#u #s) 
(else #u)) 

succeed? 1 


No, 

because the question of the first cond e line 
is the goal #u. 


1 cond e is written conde and is pronounced “con-dee”. 
cond 6 is the default control mechanism of Prolog. See 
William F. Clocksin. Clause and Effect Springer, 1997. 


Does 

(cond e 
(#u #u) 
(else #s)) 

succeed? 



Yes, 

because the question of the first cond 6 line 
is the goal #u, so cond f tries the second 
line. 


Does 


(cond 


(#s #s) 
(else #u)) 


succeed? 



Yes, 

because the question of the first cond 6 line 
is the goal #s, so cond 6 tries the answer of 

the first line. 


What is the value of 


(run* (z) 
(cond 6 



olive x ) #s) 
((= oil x) #s) 
(else #u))) 


(olive oil), 

because (= olive x) succeeds; therefore, the 
answer is #s. The #s preserves the 
association of x to olive. To get the second 
value, we ‘pretend, that (= olive x) fails; 
this imagined failure refreshes x. Then 
(= oil x) succeeds. The #s preserves the 
association of x to oil. We then pretend 
that (= oil z) fails, which once again 
refreshes x. Since no more goals succeed, 
we are done. 



The Law of conde 

To get more values from conde, pretend that the successful conde line has failed, refreshing all 
variables that got an association from that line. 






What does the “e” stand for in cond' 



What is the value off 


(run 1 (2:) 
(cond e 




olive x) #s) 
oil x) #s) 


(else #u))) 




This expression is written (run 1 (x) 


• • • 



What is the value of 


(run* (z) 
(cond 




virgin x) #u) 
olive 2 :) #s) 


(#s #s) 



oil x) #s) 
(else #u))) 



In the previous run* expression, which 
cond e line led to 


“0 


It stands for every line , since every line can 
succeed. 


(olive), 

because (= olive 2 ;) succeeds and because 
run 1 produces at most one value. 


(olive oil). 

Once the first cond e line fails, it is as if 
that line were not there. Tims what results 
is identical to 

(cond e 

((= olive x) #s) 

(#s #s) 

((= oil x) its) 

(else #u)). 


(its its), 

since it succeeds without x getting an 
association. 




What is the value of 


(extra olive), 

since we do not want every value; we want 
only the first two values. 


52 

(run 2 ( x) 

(cond fi 

((= extra x) #s) 

((= virgin x) #u) 

((= olive x) #s) 

((= oil x) #s) 

(else #u))) 


When we give run a positive integer n and the run 
expression terminates, it produces a list whose length is less 
than or equal to n. 


53 

What value is associated with r in (split pea). 

(run* (r) 

(fresh (x y) 

(= split x) 

(= pea y) 

(= (cons x (cons y ())) r))) 


What is the value of The list ((split pea) (navy bean)). 

(run* (r) 

(fresh (x y) 

(cond e 

((= split x) (= pea y)) 

((= navy x) (= bean y)) 

(else #u)) 

(= (cons x (cons y ())) r))) 


Wliat is the value of The list ((split pea soup) (navy bean soup)). 

(run* (r) 

(fresh (x y) 

e 

((= split x) (= pea y)) 

((= navy x) (= bean y)) 

(else #u)) 

(= (cons x (cons y (cons soup ()))) r))) 






Consider this very simple definition. 


(tea cup). 




(define teacup" 
(lambda ( x) 
(cond e 
((= tea x ) #s) 
((= cup x) #s) 
(else #u)))) 

What is the value of 

(run* (x) 

( teacup 0 a:)) 


Also, what is the value of 

(run* (r) 

(fresh (x y) 

(cond 


((teacup 0 x) (= #t y ) #s)^ 
#f x) (= #t y)) 



(else #u)) 

(cons x (cons y ())) r))) 


((tea #t) (cup #t) (#f #t)). 

From (teacup 0 x), x gets two associations 
and from (= #f x), x gets one association. 


1 The question is the first goal of a line, however the answer 
is the rest of the goals of the line. They must all succeed for 
the line to succeed. 


What is the value of 

(run* (r) 

(fresh (x y z) 

(cond e 

((= y x ) (fresh (x) (= 2 x))) 
((fresh (x) (= y x)) (= 2 x)) 
(else #u)) 

(= (cons y (cons z ())) r))) 


(U-.) u-,)). 

but it looks like both occurrences of _ 0 
have come from the same variable and 
similarly for both occurrences of . 





59 


Then, what is the value of 

(run* (r) 

(fresh (x y z) 

(cond e 

((= y x) (fresh (x) (= z x))) 
((fresh (x) (= y x)) {= z x)) 
(else #u)) 

(= #f x) 

(= (cons y (cons z ())) r))) 


(-. * 0 ), 

which clearly shows that the two 
occurrences of ^ in the previous frame 
represent different variables. 


What is the value of 

(run* (q) 

(let ((a (= #t 7 )) 

(b (= #f ,))) 

b)) 


(#f), which shows that (= #t q) and (= #f q) 
are expressions, each of whose value is a goal. 
But, here we only treat the (= #f q) 
expression’s value, 6 , as a goal. 


What is the value of 

(run* (?) 

(let ((a (= #t ?)) 

(b (fresh (x) 

(= x q ) 

(= #f*))) 

(c (cond e 

((= #t q) #s) 

(else (= #f q))))) 

b )) 


01 (# 0 : which shows that (= ...), (fresh ...), 
and (cond e ...) are expressions, each of 
whose value is a goal. But, here we only 
treat the fresh expression’s value, 6 , as a 
goal. This is indeed interesting. 



Now go make yourself a peanut butter and jam sandwich. 



This space reserved for 
JAM STAINS! 












V/ 



What is the value of 


1 


(let ((a: (lambda (a) a)) 

(y c)) 

(z y )) 


because (x y) applies (lambda (a) a) to c. 


What value is associated with r in 

(run* (r) 

(fresh (y x) 

(= (x j,)' r))) 


because the variables in (x y) have been 
introduced by fresh. 


t This list is written as the expression ‘ (,x ,y) or 
(co x (cons y ())). This list is distinguished from the 
function application (x y) by the use of bold parentheses 


^ It should be clear from context that this list is a value; it is 
not an expression. This list could have been built (see 9:52) 

using (cons (reify-najne 0) (corns (reijy-name l) ()))- 


What is the value of 

(run* (r) 

(fresh (v w) 

(= (let ((x v) (y w)) (x y)) r))) 


3 ((- 0 -,)), 

because v and w are variables introduced 
by fresh. 


What is the value of 

(car (grape raisin pear)) 


grape. 


What is the value of 
(car (a c o r n)) 



What value is associated with r ird 
(run* (r) 

(car° (acorn) r)) 


a, 

because a is the car of (a corn). 


1 car° is written caro and is pronounced 1 ’car-oh”. 
Henceforth, consult the index for how we write the names of 
functions. 






What value is associated with q in 
(run* ( q ) 

{car° (acorn) a) 

(= #t q)) 





because a is the car of (a c o r n). 


8 

What value is associated with r in P ear > 

since x is associated with the car of (r y), 

which is the fresh variable r. Then x is 

associated with pear, which in turn 

. ... associates r with pear. 

(= pear *))) 


(run* (r) 

(fresh (x y) 

( car° (r y) rr) 


Here is the definition of car". 


(define car° 

(lambda (p a) 

(fresh ( d ) 

(= (cons a d ) p)))) 


What is unusual about this definition? 


Whereas car takes one argument, car° takes 
two. 


What is the value of 

(cons 

(car (grape raisin pear)) 
{car ((a) (b) (c)))) 



That’s easy: (grape a). 


What value is associated with r in " That’s the same: (grape a). 

(run* (r) 

(fresh (a: y) 

( car° (grape raisin pear) x) 

( car° ((a) (b) (c)) y) 

(= {cons x y) r))) 


Why can we use cons 


12 


Because variables introduced by fresh are 
values, and each argument to cons can be 
any value. 









What is the value of 


13 


That’s easy: (raisin pear). 


(cdr (grape raisin pear)) 


What is the value of 
(car (cdr (a c o r n))) 



What value is associated with r in 

(run* (r) 

(fresh (u) 

(cdr° (acorn) v ) 

(car° v r))) 


The process of transforming (car (cdr l )) 
into ( cdr° l v) and ( car° v r) is called 
unnesting T 


1 Some readers may recognize the similarity between 
unnesting and continuation-passing style. 


Here is the definition of cdr 0 . 



Oh. It is almost the same as car°. 


(define cdr 0 
(lambda (p d) 

(fresh (a) 

(= (cons a d) p )))) 


17 

What is the value of That’s easy: ((raisin pear) a). 

(cons 

(cdr (grape raisin pear)) 

(car ((a) (b) (c)))) 


What value is associated with r in That’s the same: ((raisin pear) a). 

(run* (r) 

(fresh (x ig) 

(cdr° (grape raisin pear) x) 

(car 0 ((a) (b) (c)) y) 

(= (cons x ij) r))) 








19 


What value is associated with q in 
(run* ( q ) 

( cdr" (acorn) (cor n)) 

(= #t q)) 


#t, 

because (corn) is the cdr of (acorn). 


What value is associated with x in 
(run* (x) 

( cdr° (corn) (x r n))) 


because (o r n) is the cdr of (c o r n), so x 
gets associated with o. 


What value is associated with l in 
(run* (/) 

(fresh (x) 

( cdr° l {cor n)) 

( car° l x) 

(= a x))) 


(acorn), 

because if the cdr of / is (c o r n), then l 
must be the list (acorn), where a is the 
fresh variable introduced in the definition 
of cdr°. Taking the car° of l associates the 
car of l with x. When we associate x with 
a, we also associate a, the car of /, with a, 
so l is associated with the list (acorn). 


What value is associated with l in 
(run* (l) 

( cons° (a b c) (d e) /)) 


((abc)de), 

since cons° associates l with 
(cons (a b c) (d e)). 


What value is associated with x in 
(run* (x) 

( cons° x (a b c) (dab c))) 


Since (cons d (a b c)) is (d a b c), cons° 
associates x with d. 


What value is associated with r in 

(run* (r) 

(fresh (x y z) 

(= (e a d x) r) 

{cons" y (a z c) r))) 


(e a d c), 

because first we associate r with a list 
whose last element is the fresh variable x. 
We then perform the cons associating x 
with c, z with d, and y with e. 


What value is associated with x in d. 

What value can we associate with x so 
that (cons x (a x c)) is (d a x c)? 

Obviously, d is the value. 



What value is associated with / in 
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(run* (Z) 

(fresh (x) 

(= (d a x c) Z) 

( cons° x (a x c) Z))) 


(d a d c), 

because Ms (d a x c). Then when we 
cons° x onto (a x c), we associate x with 



What value is associated with Z in 

(run* (Z) 

(fresh (x) 

( cons" x (a x c) Z) 

(= (d a x c) Z))) 


(dad c), 

because we cons x onto (a x c), and 
associate Z with the list (x a x c). Then 
when we associate Z with (d a x c), we 
associate x with d. 


Define cons° using =. 



(define cons° 
(lambda (a d p) 

(= (cons a d) p ))) 
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What value is associated with Z in (beans). 

Z must clearly be a five element list, since s 
is ( cdr Z). Since Z is fresh, ( cdr° l s) places 
a fresh variable hi the first position of Z, 
while associating w and (a n s) with the 
second position and the cdr of the cdr of Z, 
respectively. The first variable in Z gets 
associated with x, which in turn gets 
associated with b. The cdr of Z is a list 
wiiose car is the variable w. That variable 
gets associated with y, which in turn gets 
associated with e. 


(run* (Z) 


(fresh (d x y w 

s ) 

(cons° w (a n 

s) s) 

( cdr° l s ) 


( car° l x) 


(= b x) 


(cdr° l d) 


( car° d y) 


(= e y))) 



What is the value of 

(null? (grape raisin pear)) 



What is the value of 


(null? ()) 
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#t. 




What is the value of 


(run* (q) 

(null" (grape raisin pear)) 

(= #t q )) 



_ » ; j' 

Wliat is the value of (#t). 

(run* (q) 

(null 0 ()) 

(= #t q)) 


What is the value of 

(run* (x) 

(null 0 x)) 



Define null 0 using =. 
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What is the value of 
(eq? pear plum) 



What is the value of 
(eq? plum plum) 



Wliat is the value of 

(run* (q) 

(eq° pear plum) 

(S #t q)) 












What is the value of 


(run* (q) 

( eq° plum plum) 

(= #t <l)) 



Define eq° using =. 
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It is easy. 


(define eq° 
(lambda (x y ) 

(= x y))) 


Is (split . pea) a pair? 



Is (split . a ) a pair? 



What is the value of 
(pair? ((split) . pea)) 



What is the value of 

(pair? ()) 



Ls pair a pair? 


Is pear a pair? 


Is (pear) a pair? 
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4(3 


47 


No. 


No. 


Yes, 

it is the pair (pear. ()). 


What is the value of 
(car (pear)) 




pear. 


What is the value of 


(cdr (pear)) 


I low can we build these pairs? 


What is the value of 
(cons (split) pea) 



50 


51 


Use Cons the Magnificent. 


((split) . pea). 


What value is associated with r in 

(run* (r) 

(fresh (x y ) 

(= (cons x (cons y salad)) r))) 



Here is the definition of pair 0 . No, it is not. 


(define pair 0 
(lambda (p) 

(fresh (ad) 

( cons° a d p)))) 


Is pair 0 recursive? 
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What is the value of (#t). 

(run* ( q ) 

(pair 0 (cons q ?)) 

(s #t q)) 


What is the value of 

(run* (q) 

(pair 0 ()) 

(= « q)) 





What is the value of 


(run* ( ? ) 
(pair 0 pair) 
(= #t q)) 



What value is associated with x in 

(run* (x) 

{pair 0 x)) 

F7 (-0.-J* 

What value is associated with r in 

58 - 0 * 

(run* (r) 


{pair 0 {cons r pear))) 



Is it possible to define car°, cdr°, and pair 0 Yes. 
using cons° 



This space reserved for 
"Cons° the Magnificent 0 " 











Consider the definition of list?. 


i 


#t. 


(define list? 

(lambda (/) 

(cond 

((null? 1) #t) 

((pair? I ) (list? (cdr /))) 
(else #f)))) 


What is the value of 
(list? ((a) (a b) c)) 


What is the value of 

(list? ()) 

2 #t. 

What is the value of 

#f. 

(list? s) 


What is the value of 

4 #f, 

(list? (date.s)) 

because (d a t e . s) is not a proper list.* 


^ A list is proper if it is the empty list or if its cdr is proper 


Consider the definition of list 0 . 


(define list 0 
(lambda (/) 
(cond* 

((null 0 l ) #s) 
(( pair 0 l) 
(fresh (d) 
(cdr° l d) 
(list 0 d))) 
(else #u)))) 


The definition of list? has Boolean values as 
questions and answers, list 0 has goals as 
questions* and answers. Hence, it uses 
cond e instead of cond. 


* else is like #t in a cond line, whereas else is like #s in a 
cond c line. 


How docs list ° differ from list? 


Where does 


(fresh ( d ) 

( cdr° l d) 
(list 0 d)) 

come from? 


It is an unnesting of (list? (cdr l )). First we 
take the cdr of l and associate it with a fresh 
variable d, and then we use d in the 
recursive call. 


The First Commandment 

To transform a function whose value is a Boolean into a function whose value is a goal, replace 
cond with conde and unnest each question and answer. Unnest the answer #t (or #f) by 
replacing it with #s (or #u). 


What value is associated with x in . . . 

since x remains fresh 

(run* (x) 

(list 0 (a b x d)^)) 

where a, b, and d are symbols, and x is a 
variable. 



Reminder: This is the same as ‘(»b ,x d). 


Why is -j, the value associated with x in 

(run* (x) 

(list 0 (a b x d))) 


When determining the goal returned by list' 
it is not necessary to determine the value of 
x. Therefore x remains fresh, which means 
that the goal returned from the call to list 0 
succeeds for all values associated with x. 


How is -o the value associated with x in 

(run* (x) 

(list 0 (a b x d))) 



When list 0 reaches the end of its argument, 
it succeeds. But x docs not get associated 
with any value. 


What, value is associated with x in 
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(run 1 (x) 

(list 0 (a b c . x))) 



Why is () the value associated with x in 

(run 1 (x) 

(list 0 (a b c . x))) 



Because (a b c . x) is a proper list when x is 
the empty list. 


How is () the value associated with x in 

(run 1 (x) 

(list 0 (a b c . x))) 


When list 0 reaches the end of (a be . x), 
(null 0 x) succeeds and associates x with the 
empty list. 


What is the value of 

(run* (x) 

(list 0 (a b c . x))) 


It has no value. 

Maybe we should use run 5 to get the first 
five values. 


What is the value of 

(run 5 (x) 

(list 0 (a b c . x))) 



Describe what we have seen in transforming In list? each cond line results in a value. 
list? into list 0 . whereas in list 0 each cond e line results in a 

goal. To have each cond e result in a goal, we 
unnest each cond question and each cond 
answer. Used with recursion, a cond 6 
expression can produce an unbounded 
number of values. We have used an upper 
bound, 5 in the previous frame, to keep from 
creating a list with an unbounded number of 

values. 








Consider the definition of lol?, where lol? 
stands for list-of-lists?. 

(define lol? 

(lambda (/) 

(cond 

({null? 1) #t) 

((list? (car l)) (lol? (cdr l))) 

(else #f)))) 


Describe what lol? does. 


As long as each top-level value in the list / is 
a proper list, lol? returns #t. Otherwise, lol? 
returns #f. 


Here is the definition of lol°. 

(define lol° 

(lambda (l) 

(cond e 

((null 0 l ) #s) 

((fresh (a) 

(car° l a) 

(list 0 a)) 

(fresh (d) 

(cdr° l d) 

(lol° d))) 

(else #u)))) 


The definition of lol? has Boolean values as 
questions and answers. lol° has goals as 
questions and answers. Hence, it uses cond 6 
instead of cond. 


How does lol° differ from lol? 


What else is different? 

(list? (car l )) and (lol? (cdr l )) have been 


unnested. 

Is the value of (lol 0 l) always a goal? 

19 Yes. 



What is the value of 

(run 1 (l) 

(lol° /)) 


( 0 ). 

Since l is fresh, (null 0 l) succeeds and in 
the process associates l with (). 
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What value is associated with q in 

(run* (7) 

(fresh (x y) 

{lol° ((a b) (x c) (d y))) 

(= #t q))) 




since ((a b) (x c) (d y)) is a list of lists. 


What value is associated with q in 

(run 1 (y) 

(fresh (x) 

( lol° ((a b) . x)) 

(= #t q))) 


because null 0 of a fresh variable always 
succeeds and associates the fresh variable, 
in this case x, with (). 


What is the value of 
(run 1 (x) 

( lol° ((a b) (c d) . x))) 



( 0 ), 

since replacing x with the empty list in 
((a b) (c d) . x) transforms it to 
((a b) (c d) . ()), which is the same as 
((a b) (c d)). 


What is the value of 
(run 5 (x) 

{lol° ((a b) (c d) . x))) 


( 0 ) 

(0 0 ) 

(0 0 0 ) 

(0 0 0 ()))■ 


What do we get when we replace x by the 
last list in the previous frame? 


((a b) (c d).(() () () ())), 

which is the same as 

((a b) (c d) () () () ()). 


Is (tofu tofu) a twin ? 
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Yes, 


because it is a list of two identical values. 


No, 


because e and tofu differ. 


Is (e tofu) a twin? 


27 









Is (g g g) a twin? 
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No, 


because it is not a list of two values. 


Is ((g g) (tofu tofu)) a list of twins? 
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Yes 


twins 


Is ((g g) (e tofu)) a list of twins? 
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No, 


since (e tofu) is not a twin. 


Consider the definition of twins 0 . No, it isn’t. 

(define twins 0 
(lambda ( s) 

(fresh (x y) 

(cons° x y s) 

{cons° x () y)))) 

Is twins 0 recursive? 


What value is associated with q in #t. 

(run" {q) 

(twins 0 (tofu tofu)) 

(= *t q)) 


What value is associated with z in 

(run* ( z ) 

(twins 0 (z tofu))) 



tofu. 


Why is tofu the value associated with z in 

(run* (z) 

(twins 0 (z tofu))) 


Because (z tofu) is a twin only when 2 is 
associated with tofu. 










How is tofu the value associated with z in 
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(run* ( z ) 

(twins 0 ( z tofu))) 


In the call to twins 0 the first cons° 
associates x with the car of ( z tofu), which is 
z , and associates y with the edr of ( z tofu), 
which is (tofu). Remember that (tofu) is the 
same as (tofu . ()). The second cons° 
associates x, and therefore z, with the car of 
y, which is tofu. 


Redefine twins° without using cons°. 
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Here it is. 



Consider the definition of lot°. 

(define lot° 

(lambda (/) 

(cond e 
((null 0 l ) #s) 

((fresh (a) 

(car° l a) 

(twins 0 a)) 

(fresh (d) 

(cdr° l d) 

(lot° d))) 

(else #u)))) 


lot stands for list-of-twins. 


What does lot stand for? 


What value is associated with z in 


(run 1 (z) 

(lot° ((g g) • z))) 



Why is () the value associated with z in 


(run 1 ( z) 

(lot° ((g g) . z))) 


Because ((g g) . z) is a list of twins when z 
is the empty list. 







What do we get when we replace z by () 


((gg)-O). 

which is the same as 

((gg)) 


How is () the value associated with z in 

(run 1 ( z) 

(lot° ((g g) . z))) 


In the first call to lot ", l is the list 
((g g) • 2 ). Since this list is not null, 

( null 0 l) fails and we move on to the second 
cond e line. In the second cond e line, d is 
associated with the cdr of ((g g) . 2 ), which 
is z. The variable d is then passed in the 
recursive call to lot°. Since the variable z 
associated with d is fresh, ( null 0 l) succeeds 
and associates d and therefore z with the 
empty list. 


What is the value of 


(run 5 ( 2 ) 

{lot° ((g g) . z))) 



(0 

((-o -*)) 

((-oO (-, -J) 

((-o -JU -,)(.,)) 

((-0 -o) U -x) U -,) (-3 ^))). 


Why are the nonempty values (_ n _ n ) 


Each _ n corresponds to a fresh valuable that 
has been introduced in the question of the 
second cond e line of lot°. 


What do we get when we replace z by the 
fourth list in frame 42? 


((ggMUOU -,)(..))), 

which is the same as 

((gg) U- 0 )(-x -,) (, ,))• 


What is the value of 

(run 5 (r) 

(fresh (w x y z) 

( lot 0 ((g g) (e w) (x y) . z)) 
(= (u; (x y ) z) r))) 


((e (-o -0) 0) 

(e (-o-oMU -.))) 

(e (- 0 - 0 ) ((-, ,)(,J 

(e (- o _ 0 )((_, U -,) U -3))) 

(e (-^MU -x) U -3) U-3) U-J))) 


4 5 








What do wc get when we replace w, x, y. 
and 2 by the third list in the previous frame? 


((gg) (ee) U ^).((_, -,)(-,-,))) 

which is the same as 
((g g) (e e) U -o) (-> -,)(-, -,)) 



What is the value of 

(run 3 (out) 

(fresh (w x y z) 

(= ((g g) (e w) (x y) . z) out) 

(lot 0 out))) 

(((gg) (e e) (_<, -J) 

((gg) (e e) (_„ (_ x _J) 

((gg) (e e) („)(-i -,)U-,)))• 

Here is listof 0 . 

Yes. 

(define listof 0 


(lambda (pred° l) 


(cond e 


((null° l) #s) 


((fresh (a) 


(car° l a) 


(pred° a)) 


(fresh (d) 


(cdr° l d) 


( listof° pred° d))) 


(else #u)))) 


Is listof 0 recursive? 



Wliat is the value of 

(run 3 (out) 

(fresh (w x y z) 

(= ((g g) (e w) (x y) . z) oxit) 
(listof 0 twins 0 out))) 


(((gg) (e e) („)) 

((gg) (e e) (-o -„) (-, -J) 

((gg) (e e) (_, ,,)(,J. 
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Now redefine lot° using listof 0 and twins 0 . That’s simple. 


(define lot 0 
(lambda (/) 

( listof° twins 0 l ))) 

_I 





Remember member? 


(define member? 

(lambda (x l) 

(corid 

{(null? 1) #f) 

(( eq-car? I x) #t) 

(else (member? x (cdr /)))))) 


member? is an old friend, but that’s a 

r 

strange way to define it. 

(define eq-car? 

(lambda (l x) 

( eq? (car l) x))) 


Define eq-car?. 


Don’t worry. It will make sense soon. 



What is the value of 

( member? olive (virgin olive oil)) 



#t, but this is uninteresting. 


Consider this definition of eq-car°. 


(define eq-car° 
(lambda (l x) 

(car° l x))) 


Define member 0 using eq-car °. 


(define member 0 
(lambda (x /) 

(cond e 
((null 0 l) #u) 

((eq-car° l x) #s) 

(else 

(fresh (d) 

(cdr° l d) 

( member° x <i)))))) 


Is the first cond' ; line unnecessary? 


Whenever a cond e line is guaranteed to 
fail, it is unnecessary. 


Which expression has been unnested? 



(member? x (cdr /)). 


What value is associated with q in 
(run* (q) 

( member° olive (virgin olive oil)) 
(= #t q)) 



#t, 

because ( member° a l ) succeeds, but this 
is still uninteresting. 












What value is associated with y in 
(run 1 (y) 

( member° y (hummus with pita))) 
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hummus, 

because we can ignore the first cond e line 
since l is not the empty list, and because 
the second cond e line associates the fresh 
variable y with the value of ( car l), which 
is hummus. 


What value is associated will y in 
(run 1 (y) 

( member° y (with pita))) 
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with, 


because we can ignore the first cond e line 
since l is not the empty list, and because 
the second cond e line associates the fresh 
variable y with the value of (car l), which 
is with. 


What value is associated with y in 
(run 1 (y) 

( member° y (pita))) 


eo 


pita, 


because we can ignore the first cond e line 
since l is not the empty list, and because 
the second cond e line associates the fresh 
variable y with the value of ( car l), which 
is pita. 


What is the value of 

(run* (y) 

( member° y ())) 
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0 , 


because the (null" l ) question of the first 
cond e line now holds, resulting in failure 
of the goal ( member° y l). 


What is the value of 
(run* (y) 

( member° y (hummus with pita))) 


02 


(hummus with pita), 

since we already know the value of each 
recursive call to member °, provided y is 
flesh. 


Why is y a fresh variable each time we enter 
member° recursively? 
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Since we pretend that the second cond e line 
has failed, we also get to assume that y has 
been refreshed. 
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So is the value of Yes. 

(run* (y) 

( member° y l)) 

always the value of l 


Using run*, define a function called identity 
whose argument is a list, and which returns 
that list. 


G5 

(define identity 
(lambda ( l) 

(run* {y) 

( member° y /)))) 


What value is associated with x in e - 

The list contains three values with a 
variable in the middle. The member 0 
function determines that x's value should 
be e. 


(run* (x) 

( member° e (pasta x fagioli))) 


Why is e the value associated with x in 
(run* ( x) 

( member° e (pasta x fagioli))) 


Because ( member° e (pasta e fagioli)) 
succeeds. 


What have we just done? 


We filled in a blank in the list so that 
member 0 succeeds. 


What value is associated with x in 
(run 1 (x) 

{member 0 e (pasta e x fagioli))) 


because the recursion succeeds before it 
gets to the variable x. 



What value is associated with x in 
(run 1 (a:) 

{member 0 e (pasta x e fagioli))) 


because the recursion succeeds when it 
gets to the variable x. 









What is the value of 
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(( e -o) (-0 e) . 


(run* (r) 

(fresh (x y) 

( member° e (pasta x fagioli y)) 

(= (* y) r))) 


What does each value in the list mean? There are two values in the list. We know 

from frame 70 that when x gets associated 
with e, ( member° e (pasta x fagioli ?/)) 
succeeds, leaving y fresh. Then x is 
refreshed. For the second value, y gets an 
association, but x does not. 


What is the value of 
(run 1 ( l ) 

(member 0 tofu /)) 



Which lists are represented by (tofu . _ Q ) 



Every list whose car is tofu. 


What is the value of 

(run* ( l) 

(member 0 tofu l)) 


It has no value, 

because run* never finishes building the 
list. 


What is the value of 

(run 5 (0 

( member° tofu l)) 


((tofu . _ 0 ) 

(-o tofu . ) 

(-o -i tofu • - 2 ) 

(-0 -1 -3 tofu • - 3 ) 

(-0 -1 - 3 -3 tofu • -J)- 

Clearly each list satisfies member since 
tofu is in every list. 








Explain why the answer is 

((tofu . _ 0 ) 

(_ 0 tofu . ) 

(-0 _ t tofu . _,) 

(-O “I “2 tofU * -3) 

(-0 -I -2 -3 tofu • -. 4 )) 


Assume that we know how the first four lists 
are determined. Now we address how the 
fifth list appears. When we pretend that 
et\-car° fails, I. is refreshed and the last 
cond p line is tried. I is refreshed, but we 
recur on its cdr, which is also fresh. So each 
value becomes one longer than the previous 
value, hi the recursive call ( member 0 x d), 
the call to eq-car° associates tofu with the 

car of the cdr of l. Thus ^ will appear where 
tofu appeared in the fourth list. 
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Is it possible to remove the dotted variable at Perhaps, 

the end of each list, making it proper? but we do know when we’ve found the 

value we’re looking for. 
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Yes, that’s right. That should give us enough It should be the empty list if we find the 

of a clue. What should the cdr be when we value at the end of the list, 

find this value? 


Here is a definition of pmember°. 

f" 

(define pmember 0 
(lambda (t /) 

(cond e 
((null 0 l) #u) 

((eq-car° l x) (cdr° l ())) 
(else 

(fresh (d) 

(cdr° l d) 

(pmember 0 x d)))))) 


((tofu) 

(-0 tofu ) 

(-0 -1 tofu ) 

(-0 -1 -2 tofu ) 

(-0 -1 -2 -3 tofu)). 


What is the value of 
(run 5 (l) 

(pmember 0 tofu /)) 







What, is the value of 
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Is it (#t #t)? 


(run* (q) 

(pmember 0 tofu (a b tofu d tofu)) 
(= #t q)) 


No, the value is (#t). Explain why. 


The test for being at the end of the list 
caused this definition to miss the first tofu. 


Here is a refined definition of pmember 0 . 

(define pmember 0 
(lambda (a: /) 

(cond e 
((null 0 l) #u) 

((eq-car° l x) (cdr° l ())) 
((eq-car° l x) #s) 

(else 

(fresh (<i) 

(cdr° l d) 

(pmember 0 x d)))))) 


We have included an additional cond e line 
that succeeds when the car of l matches x. 


How does this refined definition differ from 
the original definition of pmember 0 


8*1 

What is the value of Is it (#t #t)? 

(run* (q) 

( pmember° tofu (a b tofu d tofu)) 

(s #t q)) 


No, the value is (#t #t #t). Explain why. The second cond <: line contributes a value 

because there is a tofu at the end of the list. 
Then the third cond e line contributes a 
value for the first tofu in the list and it 
contributes a value for the second tofu in the 
list. Thus in all, three values are contributed. 








Here is a more refined definition of 
pmember 0 . 


We have included a test to make sure that its 
edr is not the empty list. 




(define pmember 0 
(lambda (x l) 

(cond e 
((null 0 l ) #u) 

((eq-car° l x ) (cdr° l ())) 
((eq-car° l x) 

(fresh (a d) 

(cdr° l (a . d)))) 

(else 

(fresh (d) 

(cdr° l d) 

(pmember 0 x d)))))) 

How does this definition differ from the 
previous definition of pmember 0 


a 7 

How can we simplify this definition a bit We know that a cond e line that always fails, 

more? like the first cond e line, can be removed. 


S S 

Now what is the value of (#t #t) as expected. 

(run* ( q) 

(pmember° tofu (a b tofu d tofu)) 

(= #t q)) 



((tofu) 

(tofu - 0 • -, ) 

( -o tofu ) 

(^ tofu ) 

(-0 -1 tofu ) 

(_Q _J tofu -2 • -3) 

(“0 -1 ~a tofu) 

(-0 -i -2 tofu _ 3 ■ - 4 ) 

(-0 -1 -2 -3 tofu) 

(-0 1 -2 -3 tofu . -5) 

(-0 -l -2 -3 -4 tofu) 

(-0 -1 -2 -3 -4 tofu _g • -g))• 


Now what is the value of 

(run 12 (/) 

(pmember 0 tofu /)) 






How can we characterize this list of values? 



All of the odd positions are proper lists. 


Why are the odd positions proper lists? 



Because in the second cond <; line the cdr of l 
is the empty list. 


Why are the even positions improper lists? 


Because in the third cond e line the cdr of l 
is a pah\ 


How can we redefine pmember 0 so that the 
lists in the odd and even positions are 
swapped? 


We merely swap the first two cond e lines of 
the simplified definition. 

(define pmember 0 
(lambda (x l) 

(cond e 

(( eq-car° l x) 

(fresh (ad) 

( cdr° l (a . <i)))) 

(( eq-car° l x) (cdr° l ())) 

(else 

(fresh (d) 

(cdr° l d) 

(pmember 0 x d)))))) 



Now what is the value of 
(run 12 (0 

(pmember 0 tofu l )) 
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Consider the definition of first-value , which 
takes a list of values l and returns a list that 
contains the first value in l. 

(define first-value 
(lambda ( l) 

(run 1 (y) 

(member 0 y /)))) 

Given that its argument is a list, how does 
first-value differ from car 


If l is the empty list or not a list, 

(first-value l) returns (), whereas with car 

there is no meaning. Also, instead of 
returning the first value, it returns the list of 
the first value. 


What is the value of 

(first-value (pasta e fagioli)) 



What value is associated with y in 
(first-value (pasta e fagioli)) 



Consider this variant of member 0 . 

(defi ne memberrev ° 

(lambda (x l) 

(cond e 
((null 0 l ) #u) 

(#s 

(fresh (d) 

(cdr° l d) 

(memberrev 0 x d))) 

(else (eq-car° l a;))))) 

How does it differ from the definition of 
member 0 in frame 54? 


We have swapped the second cond e line with 
the third cond e line* 


^ Clearly, #s corresponds to else. The ( eq-car° l x) is now 
the last question, so we can insert an else to improve clarity. 
We haven’t swapped the expressions in the second cond e 
line of memberrev hut we could have, since we can add or 
remove #s from a cond* line without affecting the line. 


How can we simplify this definition? 


By removing a cond e line that is guaranteed 
to fail. 


What is the value of 
(run* (x) 

(memberrev 0 x (pasta e fagioli))) 
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(fagioli e pasta) 









Define reverse-list, which reverses a list, 
using the definition of mernberrev 0 . 
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Here it is. 


(define reverse-list 
(lambda (/) 

(run* (y) 

( mernberrev° y /)))) 



Now go make yourself a peanut butter and marmalade sandwich. 



This space reserved for 


MARMALADE STAINS! 





II 







Consider this very simple function. 


I 


(tofu d peas e). 


(define mem 
(lambda ( 2 : l ) 

(cond 

{(null? I ) #f) 

(( eq-car? I x) l) 

(else (mem x (edr /)))))) 

What is the value of 

(mem tofu (a b tofu d peas e)) 


What is the value of 

(mem tofu (a b peas d peas e)) 



What value is associated with out in 
(run* (out) 

(= (mem tofu (a b tofu d peas e)) out)) 


(tofu d peas e). 


What is the value of 
(mem peas 

(mem tofu (a b tofu d peas e))) 


(peas e). 


What is the value of 
(mem tofu 

(mem tofu (a b tofu d tofu e))) 
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(tofu d tofu e), 

because the value of 

(mem tofu (a b tofu d tofu e)) is 

(tofu d tofu e), and because the value of 

(mem tofu (tofu d tofu e)) is 

(tofu d tofu e). 


What is the value of 
(mem tofu 

(edr (mem tofu (a b tofu d tofu e)))) 


(tofu e), 

because the value of 

(mem tofu (a b tofu d tofu e)) is 

(tofu d tofu e), the value of 

(edr (tofu d tofu e)) is (d tofu e), and the 

value of (mem tofu (d tofu e)) is (tofu e). 









Here is mem°. 


~ 


The list?, lol?, and member? definitions from 
the previous chapter have only Booleans as 
their values, but mem, on the other hand, 
docs not. Because of this we need an 
additional variable, which here we call out, 
that holds mem 0 ' s value. 


Which expression has been unnested? 

£ 

(mem x (edr l)). 

The Second Commandment 

To transform a function whose value is not a Boolean into a function whose value is a goal, add 
an extra argument to hold its value, replace cond with conde, and unnest each question and 
answer. 

In a call to mem° from run 1 , how many 
times does out get an association? 

0 

At most once. 

What is the value of 

(run 1 (out) 

(mem° tofu (a b tofu d tofu e) out)) 

((tofu d tofu e)). 

What is the value of 

(run 1 (out) 

(fresh (a;) 

(mem" tofu (a b x d tofu e) out))) 

((tofu d tofu e)), which would be correct if x 
were tofu. 



How does mem° differ from list 0 , lol°, and 
member 0 








What value is associated with r in 
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tofu. 


(run* (r) 

{mem 0 r 

(a b tofu d tofu e) 
(tofu d tofu e))) 


What, value is associated with ? in 
(run* (?) 

{mem° tofu (tofu e) (tofu e)) 

(= #t q)) 



#t, 

since (tofu e), the last argument to mem 0 , 
is the right value. 


What is the value of 

(run* (?) 

[mem° tofu (tofu e) (tofu)) 

(= # t ,)> 



(). 

since (tofu), the last argument to mem °, is 
the wrong value. 


What value is associated with x in 
(run* (x) 

[mem° tofu (tofu e) (x e))) 
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tofu, 


when the value associated with x is tofu, 
then (x e) is (tofu e). 


What is the value of 
(run* (x) 

{mem° tofu (tofu e) (peas x))) 



because there is no value that, when 
associated with x, makes (peas x) be 
(tofu e). 


What is the value of 

(run* {out) 

(fresh (x) 

{mem° tofu (a b x d tofu e) out))) 



((tofu d tofu e) (tofu e)). 








What is the value of 
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“0 


(run 12 (z) 

(fresh ( u) 

( rncm° tofu (a b tofu d tofu e . z) u))) 



How do we get the first two _ 0 ’s? 


The first corresponds to finding the first 
tofu. The second _ 0 corresponds to finding 
the second tofu. 
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Where do the other ten lists come from? In order for 

(mem° tofu (a b tofu d tofu e . z) u) 

to succeed, there must be a tofu in z. So 
merrf creates all the possible lists with tofu 
as one element of the list. That’s very 
interesting! 


IIow can mem° be simplified? 


The first cond e line always fails, so it can be 
removed. 


(define mem° 



(lambda (x l 

out ) 


(cond e 



(( eq-car° 

lx) 0 

= l out)) 

(else 



(fresh ( 

Id) 


( cdr° 

l d) 


(mem 

f x d 

out)))))) 







Remember rcmber. 


Of course, it’s an old friend. 




(define rember 
(lambda (x l) 

(cond 

{{null? 1) ()) 

(( eq-car? I x ) (cdr l)) 

(else 

(cons (car l) 

(rember x (cdr /))))))) 


What is the value of 

(rember peas (a b peas d peas e)) 



(a b d peas e). 
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Consider rember 0 . Yes, just like rember. 

(define rember 0 
(lambda (rr l out ) 

(cond e 

((null 0 l ) (= () out)) 

((eq-car° l x) (cdr° l out)) 

(else 

(fresh (res) 

(fresh (d) 

(cdr° l d) 

(rember 0 x d res)) 

(fresh (a) 

( car° l a) 

(cons° a res oui))))))) 

Is rember 0 recursive? 


Why are there three freshes in Because d is only mentioned in (cdr° l d) 

and ( rember° x d res); a is only mentioned 
in (car° l a) and (cons° a res out)’, but res 

is mentioned throughout. 

(member 0 x d res)) 

(fresh (a) 

(car° l a) 

(cons° a res out))) 


(fresh (res) 
(fresh (d) 
(cdr° l d) 







Rewrite 


(fresh (res) 

(fresh ( d) 

(cdr° l d) 

(rember° x d res)) 
(fresh (a) 

( car° l a) 

(cons° a T'cs out))) 

using only one fresh. 


(fresh (a d res) 
(cdr° l d) 

(rember 0 x d res) 
(car° l a) 

(cons° a res out)). 


How might we use cons° in place of the car° 
and the cdr° 


(fresh (ad res) 
(cons° a d l) 
(rember 0 x d res) 
(cons° a res out)). 
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How does the first cons° differ from the " The first cons °, (cons° a d l), appears to 

second one? associate values with the variables a and d. 

In other words, it appears to take apart a 
cons pair, whereas (cons° a res out) appears 
to be used to build a cons pan. 


But, can appearances be deceiving? 



Indeed they can. 


What is the value of 

(run 1 (out) 

(fresh (y) 

(rember 0 peas (a b y d peas e) out))) 


((a b d peas e)), 

because y is a variable and can take on 
values. The car° within the (eq-car° l x) 
associates y with peas, forcing y to be 
removed from the list. Of course we can 
associate with y a value other than peas. 
That will still cause 
(rember 0 peas (abi/d peas e) out) to 
succeed, but run 1 produces only one value. 







What is the value of 
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(run* (out) 

(fresh (y z) 

(rember 0 y (a b y d z e) out))) 


((b a d e) 
(abd^ e) 

(a b d _ 0 e) 

(abd^ e) 

(a b t, d e) 
(abed _ 0 ) 

(a b _o d _j e)). 


Why is 
(b a d ^ e) 
the first value? 


It looks like b and a have been swapped, and 
y has disappeared. 


No. Why does b come first? 


The b comes first because the a has been 
removed. 


Why does the list still contain a 


In order to remove the a, y gets associated 
with a. The y in the list is then replaced 
with its value. 


Why is It looks like y has disappeared. 

(abd^e) 
the second value? 


No. Has the b in the original list been Yes. 

removed? 


Why does the list still contain a b 


In order to remove the b, y gets associated 
with b. The y in the list is then replaced 
with its value. 


Why is 

(abd^e) 

the third value? 


Is it for the same reason that (a b d e) is 
the second value? 
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Not quite. Has the b in the original list been No, 

removed? but the y has been removed. 


Why is 

(abd^e) 

the fourth value? 


Because the d has been removed from the 
list. 


Why does the list still contain a d 


In order to remove the d, y gets associated 
with d. Also the y in the list is replaced with 
its value. 


Why is 

( a b t, d e) 
the fifth value? 


Because the 2 has been removed from the 
list. 
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Why does the list contain When (car l) is y, (car 0 l a) associates the 

fresh variable y with the fresh variable a. In 
order to remove the y, y gets associated with 
2. Since 2 is also a fresh variable, the a, y, 
and z co-refer. 


Why is 
(a bed _ 0 ) 
the sixth value? 



Because the e has been removed from the list. 


Why does the list contain 



When (car l) is z, (car" l a) associates the 
fresh variable z with the fresh variable a. 


Because we are within a run*, we get to 
pretend that ( eq-car° l x ) fails when (car l) 
is 2 and x is y. Thus 2 and y no longer 
co-refer. 


Why don’t 2 and y co-refer? 
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Because we have not removed anything from 
the list. 


Why is 

( a b -o d e) 
the seventh value? 


Why does the list contain _ n and 


When ( car l ) is y. ( car° l a) associates the 
fresh variable y with the fresh variable a. 
When ( car l) is z, ( car° l a) associates the 
fresh variable z with a new fresh variable a. 
Also the y and z in the list are replaced 
respectively with their reified values. 


What is the value of 

(run* (r) 

(fresh {y z) 

( rember" y (jy d z e) (y d e)) 
(= (y z) r))) 



((d d) 

(d d) 

(“0 “0 ) 

(e e)). 


Why is 

(d d) 

the first value? 


Why is 

(d d) 

the second value? 


When y is d and z is d, then 
(rember° d (d d d e) (d d e)) 
succeeds. 


When y is d and z is d, then 
(rember° d (d d d e) (d d e)) 

succeeds. 


Wliy is 

u -») 

the third value? 


As long as y and z are the same, y can be 
anything. 


How is 

(d d) 

the first value? 


rember 0 removes y from the list (y d z e), 
yielding the list (d z e); (d z e) is the same 
as out , (y d e), only when both y and z are 
the value d. 
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How is 

(d d) 

the second value? 


Next, rember 0 removes d from the list 
(y d z e), yielding the list (y z e); (y z e) is 
the same as out , (y d e), only when z is d. 
Also, in order to remove the d, y gets 
associated with d. 


IIow is 

the third value? 


Next, rember° removes z from the list 
(y d z e), yielding the list (y d e); (y d e) is 
always the same as out , ( y d e). Also, in 
order to remove the z, y gets associated with 
z, so they co-refer. 


How is 
(e e) 

the fourth value? 


Next, rember 0 removes e from the list 
(yd z e), yielding the list (y d z); (y d z) is 
the same as out , (y d e), only when z is e. 
Also, in order to remove the e, y gets 
associated with e. 


What is the value of 

(run 13 ( w ) 

(fresh (y z out) 

( rember° y (a b y d z . w) out))) 



Why is 

"O 

the first value? 


When y is a, out becomes (b yd z . w), 
which makes 

( rember 0 y (a b y d z . tt>) (b y d z . w )) 
succeed for all values of w. 







I low is 
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rember 0 removes a from /, while ignoring the 
fresh variable w. 


“0 

the first value? 


How is 
“0 

the second, third, and fourth value? 


This is the same as in the previous frame, 
except that rember 0 removes b from the 
original L y from the original l, and d from 
the original /, respectively. 


How is 


-o 

the fifth value? 


Next, rember° removes z from l. When the 
{eq-car° l x) question of the second cond e 
line succeeds, ( car l) is z. The answer of the 
second cond e line, ( cdr° l out), also 
succeeds, associating the edr of l (the fresh 
variable w) with the fresh variable out. The 
variable out , however, is just res, the fresh 
variable passed into the recursive call to 
rember 0 . 


How is 

0 

the sixth value? 


Because none of the first five values in l arc 
removed. The (null 0 l) question of the first 
cond e line then succeeds, associating w with 
the empty list. 


How is 
(-0 ■ - 1 ) 

the seventh value? 


Because none of the first five values in / are 
removed, and because we pretend that the 
(null 0 l ) question of the first cond e line 
fails. The (eq-car° l x ) question of the 
second cond* line succeeds, however, and 
associates w with a pair whose car is y. The 
answer ( cdr° l out ) of the second cond* line 
also succeeds, associating u< with a pair 
whose edr is out. The variable out, however, 
is just res, the fresh variable passed into the 
recursive call to rember 0 . During the 
recursion, the car° inside the second cond* 

line’s eq-car° associates the fresh variable y 

with the fresh variable a. 






How is 


-o 


the eighth value? 
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This is the same as the seventh value, 

(-o • except that the (null 0 l) question of 
the first cond K line succeeds, associating out 
(and, therefore, res) with the empty list. 


How is 


05 


(-0 -1 ■ 


the ninth value? 


For the same reason that (_ 0 . n ) is the 
seventh value, except that the ninth value 
performs an additional recursive call, which 
results in an additional cons°. 


Do the tenth and twelfth values correspond 
to the eighth value? 
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Yes. 


Do the eleventh and thirteenth values 
correspond to the ninth value? 
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Yes. 


All w of the form 


-o 


■ ’ • -r. * -n . 1 ) 


make ( rember° y (a b y d z . w) out) 
succeed. 


Here is surprise 0 . 
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(define surprise 0 
(lambda (s) 

( rember° s (a be) (a be)))) 


Yes, ( surprise° s) should succeed for all 
values of s other than a, b, and c. 


Are there any values of s for which 
(surprise 0 s) should succeed? 


What value is associated with r in 
(run* (r) 

(= d rj 

(surprise 0 r)) 
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d. 


What is the value of 

(run* (r) 

(surprise 0 r)) 
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“0 


)• 


When r is fresh, (surprise 0 r) succeeds 
and leaves r fresh. 










Write an expression that shows why this 
definition of surprise 0 should not succeed 
when r is fresh. 


Here is such an expression: 

(run* (r) 

( surprise° r) 

(= b r)). 

If ( surprise° r) were to leave r fresh, then 
(= b r) would associate r with b. But if r 
were b, then ( rember° r (a b c) (a b c)) 
should have failed, since removing b from the 
list (a b c) results in (a c), not (a b c). 


And what is the value of 

(run 5 * (r) 

(= b r) 

( surprise 0 r)) 



(b), 

which also makes no sense. Please pass the 
aspirin! 



Now go munch on some carrots. 



This space reserved for 


CARROT STAINS! 












Ever seen append 


No. 


Here it is.* (a b c d e). 

(define append 
(lambda (l s) 

(cond 
((mill? I ) s) 

(else (cons (car l ) 

(append (cdr l) s)))))) 

What is the value of 
(append (a b c) (d e)) 


^ For a different approach to append, see William F. 
Clocksin. Clause and Effect. Springer, 1997, page 59. 


What is the value of 

(append (a be) ()) 



What is the value of 

(append () (d e)) 



What is the value of 5 It has no meaning, 

because a is neither the empty list nor a 
proper list. 


(append a (d e)) 


What is the value of 
(append (d e) a) 


It has no meaning, again? 


No. The value is (d e . a). 
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How is that possible? 









Look closely at the definition of append-, 
there are no questions asked about s. 


Ouch. 



Define append 0 . 


— 

(define append 0 
(lambda (l s out) 

e 

((null 0 l) (= s out)) 

(else 

(fresh (a d res) 

(car° l a) 

(cdr° l d) 

(append 0 d s res) 
(cons° a res cm£)))))) 



What value is associated with a; in ° (cake tastes yummy). 

(run* (x) 

( append° 

(cake) 

(tastes yummy) 

x)) 


What value is associated with x in (cake with ice _ 0 tastes yummy). 

(run* (x) 

(fresh (y) 

O 

(cake with ice y) 

(tastes yummy) 

*))) 



What value is associated with x in 

(run* (x) 

(fresh (y) 

(append 

(cake with ice cream) 

y 


*))) 


(cake with ice cream . ^). 








What value is associated with x in 
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(cake with ice d t), 

because the last call to mill 0 associates y 
with the empty list. 


(run 1 (x) 

(fresh ( y) 

(append ° (cake with ice . y) (d t) x))) 


How can we show that y is associated with 
the empty list? 


By this example 

(run 1 (y) 

(fresh (a:) 

(append° (cake with ice . y) (d t) a;))) 
which associates y with the empty list. 


Redefine append° to use a single cons 0 in 
place of the car° and cdr° (see 4:27). 


(define append 0 
(lambda (/ s out ) 

(cond e 

((null 0 l) (= s out)) 

(else 

(fresh (a d res) 

(cons° a d l) 

(append° d s res) 
(cons° a res oui)))))) 


What, is the value of 

(run 5 (a;) 

(fresh (y) 

(append 0 (cake with ice . y) (d t) x))) 


((cake with ice d t) 

(cake with ice ^ d t) 

(cake with ice d t) 

(cake with ice ^ d t) 

(cake with ice ^ _ 3 d t)). 


What is the value of 

(run 5 (y) 

(fresh (x) 

(append 0 (cake with ice . y) (d t) x))) 









lft 


(cake with ice 


Let’s consider plugging in (_„ _j _,) for y in 
(cake with ice . y). 

Then wc get 

(cake with ice . )). 

Wliat list is this the same as? 



Right. What is 

(append (cake with ice 


“0 “1 


) (d t)) 



The fourth list in frame 16. 


What is the value of 

(run 5 ( x) 

(fresh ( y) 

( append° 

(cake with ice . y) 
(d t . y) 

*))) 



((cake with ice d t) 

(cake with ice ^ d t _„) 

(cake with ice _<> d t ^ ) 

(cake with ice ^ _ 2 d t ^ 

(cake with ice _ 2 _3 d t ^ ^ .3)). 


What is the value of ((cake with ice cream d t . -o)). 

(run* (z) 

(fresh (z) 

(append 0 

(cake with ice cream) 

(d t . z) 

*))) 


Why does the list contain only one value? 



Because z stays fresh. 


Let’s try an example in which the first two 
arguments are variables. What is the value 

of 

(run 6 ( x) 

(fresh ( y ) 

( append“ x y (cake with ice d t)))) 
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(0 


(cake) 

(cake with) 

(cake with ice) 

(cake with ice d) 
(cake with ice d t)). 









How might we describe these values? 
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The values include all of the prefixes of the 
list (cake with ice d t). 


Now let’s try this variation. 

(run 6 (y) 

(fresh (x) 

( append° x y (cake with ice d t)))) 

What is its value? 


((cake with ice d t) 
(with ice d t) 

(ice d t) 

(d t) 

(t) 

0 ). 


How might we describe these values? 


The values include all of the suffixes of the 
list (cake with ice d t). 


Let’s combine the previous two results. 
What is the value of 

(run 6 (r) 

(fresh (x y) 

( append 0 x y (cake with ice d t)) 
(= (x y) r))) 


((() (cake with ice d t)) 
((cake) (with ice d t)) 
((cake with) (ice d t)) 
((cake with ice) (d t)) 
((cake with ice d) (t)) 
((cake with ice d t) ())). 


How might we describe these values? 


Each value includes two lists that, when 
appended together, form the list 

(cake with ice d t). 


What is the value of 

(run 7 (r) 

(fresh (x y) 

( append 0 x y (cake with ice d t)) 
(ee (x y) r))) 


It has no value, 

since it is still looking for the seventh 
value. 
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Should its value be the same as if we asked Yes, that would make sense, 
for only six values? 









• I 

How can we change the definition of append 0 Swap the last two goals of append 0 . 
so that is indeed what happens? 


32 

Now, using this revised definition of append ' The value is hi frame 27. 
what is the value of 

(run 7 (r) 

(fresh (x y) 

( append° x y (cake with ice d t)) 

(= (x y) r))) 

What is the value of 

(run 7 (x) 

(fresh (y z) 

( append° x y z))) 


What is the value of 

(run 7 (y) 

(fresh (x z) 

( append° x y z))) 
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It should be obvious how we get the first " A new fresh variable res is passed into each 
value. Where do the last four values come recursive call to append 0 . After (null 0 l) 

from? succeeds, res is associated with s, which is 

the fresh variable z. 











What is the value of 


(run 7 ( 2 ) 

(fresh (x y) 

( append 0 x y 2 ))) 




(“0 • -1 ) 




( 


“0 


-1 • -2) 

-1 -2 • -a) 


“0 “1 —2 “3 


“0 


* - 4 ) 

-4 * -5) 


-0 “I “2 “3 “4 


•-J) 


Let’s combine the previous three results. 
What is the value of 

(run 7 (r) 

(fresh (x y z) 

( append 0 x y z) 

(= (x y z) r))) 



Define swappend which is just append 0 
with its two corid* lines swapped. 


That’s a snap. 

(define swappend 0 
(lambda ( l s out) 

(cond e 

(#s 

(fresh (a d res ) 

( cons° a d l ) 

( cons° a res out ) 

( swappend 0 d s res))) 
(else ( null 0 l) (= s out))))) 


What is the value of 

(run 1 ( z ) 

(fresh (x y) 

(swappend 0 x y 2 ))) 



It has no value. 







Why does 

(run 1 ( z) 

(fresh (a: y) 

(swappend 0 x y z ))) 

have no value?* 


* Wc can redefine swappend 0 so that this run expression 
has a value. 

(define swajypend ,J 

(lambda-limited 5 (l s out) 

(cond* 

(#s 

(fresh (ad res) 

(cons a a d l) 

(cotis 0 a res out) 

(swappend 0 d s res))) 

(else (null 0 l) (= s out))))) 

Where lambda-limited is defined on the right. 


In ( swappend° d s res ) the variables d, s , 
and res remain fresh, which is where we 
started. 


Here is lambda-limited with its auxiliary function li 

(define-syntax lambda-limited 
(syntax-rules () 

((_ n formals g) 

(let ((x (t/arx))) 

(lambda formats 
(ll n x ff)))))) 

(define ll 

(lambda (n x g) 

(*C ( s ) 

(let ((v (walk x $))) 

(cond 

((var? v) (g (ext-s x 1 $))) 

((< v n) (g (ext-s x (+ u l) s))) 

(else (#u *))))))) 

The functions var , walk , and ert-s are described in 9:6, 9:27 
and 9:29, respectively. A c (see appendix) is just lambda. 
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Consider this definition. pizza. 

(define unwrap 
(lambda (x) 

(cond 

((pair? sc) (unwrap (car a:))) 

(else x)))) 

What is the value of 
(unwrap ((((pizza))))) 


What is the value of 


42 . 

pizza. 


(unwrap ((((pizza pie) with)) extra cheese)) 


This might be a good time for a pizza break. 



Good idea. 


Back so soon? Hope you are not too full. 
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Not too. 







Define unwrap°. 45 That’s a slice of pizza! 

(define unwrap 0 
(lambda (x out) 

(cond K 
((pair 0 x) 

(fresh (a) 

(car° x a) 
(unxvrap 0 a emi))) 
(else (= x out))))) 


What is the value of 
(run* (x) 

(unwrap ° (((pizza))) x)) 



(pizza 

(pizza) 

((pizza)) 

(((pizza)))). 
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The first value of the list seems right. In They represent partially wrapped versions of 

what way are the other values correct? the list (((pizza))). And the last value is the 

fully-wrapped original list (((pizza))). 


What is the value of 
(run 1 (x) 

(unwrap 0 x pizza)) 



It has no value. 


What is the value of 
(run 1 (x) 

(unwrap ° ((x)) pizza)) 



It has no value. 


Why doesn’t 
(run 1 (x) 

(unwrap ° ((x)) pizza)) 
have a value? 


The recursion happens too early. Therefore 
the (= x out) goal is not reached. 


What can we do about that? 
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Introduce a revised definition of unwrap °? 









Yes. Let’s swap the two cond R lines as in 
3 : 98 . 



Like this. 


(define unwrap 0 
(lambda (x out ) 

(cond e 

(#s (= x out)) 

(else 

(fresh (a) 

( car° x a) 

( unwrap° a ouf)))))) 


What is the value of 

(run 5 (x) 

( unwrap° x pizza)) 



What is the value of 
(run 5 (x) 

(unwrap ° x ((pizza)))) 


(((pizza)) 

(((pizza)) . _ 0 ) 

((((pizza)) . ,) . _,) 

(((((Pizza)). _J._J._J 
((((((pizza)).,)..,).,).,)). 


What is the value of 
(run 5 (x) 

(unwrap ° ((x)) pizza)) 



(pizza 
(pizza . ,) 

((pizza . _o) . -,) 

(((pizza .„).,).,) 

((((pizza . _ 0 ) . _,) . . ,)). 


If you haven’t taken a pizza break yet, stop " Okay, okay! 

and take one now! We’re taking an ice cream 

break. 


Did you enjoy the pizza as much as we 
enjoyed the ice cream? 


5? 


Indubitably! 
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Consider this definition. (a be). 

(define flatten 
(lambda (s) 

(cond 

{{null?*) ()) 

((pair? s) 

(append 

(flatten (car s)) 

(flatten (edr s)))) 

(else (cons s ()))))) 

What is the value of 
(flatten ((a b) c)) 


Define flatten 0 . 
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Here it is. 


(define flatten 0 
(lambda (s out) 

(cond 15 

((null 0 s ) (= () out)) 

((pair 0 s) 

(fresh (a d res-a res-d) 
(cons° ads)* 

( flatten° a res-a) 

(flatten 0 d res-d) 

( append° res-a res-d out))) 
(else (cons° s () ou£))))) 


t See 4:27. 


What value is associated with z in 
(run 1 (z) 

(flatten 0 ((a b) c) z)) 


(a b c). 

No surprises here. 



What value is associated with z in 
(run 1 (z) 

(flatten 0 (a (b c)) z)) 


(a b c). 







What is the value of 
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(run’" (x) 

( flatten° (a) a:)) 


((a) 

(a ()) 

((a)))- 

Here is a surprise! 


The value in the previous frame contains None of the lists are the same. 

three lists. Which of the lists, if any, are the 

same? 


What is the value of 

(run* (x) 

( flatten° ((a)) x)) 


(a 0) 

(a ()) 

(a 0 0) 
((a)) 
((a) ()) 
(((a))))- 


The value in the previous frame contains The second and third lists are the same. 

seven lists. Which of the lists, if any, are the 

same? 


What is the value of 
(run* (x) 

( flatten° (((a))) x)) 


(a ()) 

(a ()) 

(a () ()) 

(a 0) 

(a () ()) 

(a () ()) 

(a () () ()) 
((a)) 

((a) ()) 
((a) ()) 
((a) () 0) 
(((a))) 
(((a)) ()) 
((((a)))))- 






4 i 7 

The value in the previous frame contains The second, third, and fifth lists are the 

fifteen lists. Which of the lists, if any, are the same; the fourth, sixth, and seventh lists are 

same? the same; and the tenth and eleventh lists 

are the same. 


What is the value of 
(run* (x) 

( flatten° ((a b) c) x)) 


((a b c) 

(a be ()) 

(a b (c)) 

(a b () c) 

(a b () c ()) 

(a b () (c)) 

(a (b) c) 

(a (b) c ()) 
(a (b) (c)) 

((a b) c) 

((a b) c ()) 
((a b) (c)) 
(((a b) c))). 
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The value in the previous frame contains None of the lists are the same, 

thirteen lists. Which of the lists, if any, are 

the same? 


Characterize that list of lists. 


Each list flattens to (a be). These are all 
the lists generated by attempting to flatten 
((a b) c). Remember that a singleton list 
(a) is really the same as (a . ()), and with 
that additional perspective the pattern 
becomes clearer. 


What is the value of 

(run* (x) 

( flatten° x (a be))) 



It has no value. 


What can we do about it? 


Ti 


Swap some of the cond e lines? 








Yes. Here is a variant of flatten 0 . 
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The last cond e line of flatten 0 is the first 
cond e line of this variant (see 3:98). 


(define flattenrev 0 
(lambda (s out) 

e 

(#S ( cons° s 0 out)) 

((null 0 s) (= () out)) 

(else 

(fresh (a d res-a res-d) 

(cons° a d s) 

( flattenrev° a res-a) 
(flattenrev 0 d res-d) 

(append 0 res-a res-d out)))))) 


IIow does flatten 0 differ from this variant? 



hi flatten 0 there is a (pair 0 s) test. Why 
doesn’t flattenrev 0 have the same test? 


Because (cons° ads) in the fresh 
expression guarantees that s is a pair. In 
other words, the (pair 0 s) question is 
unnecessary in flatten 0 . 


What is the value of 
(run* (z) 

(flattenrev 0 ((a b) c) z)) 


((((a b) c)) 
((a b) (c)) 
((a b) c ()) 
((a b) c) 

(a (b) (c)) 
(a (b) c ()) 
(a (b) c) 

(a b () (c)) 
(a b () c ()) 
(a b () c) 

(a b (c)) 

(a be ()) 

(a b c)). 


What is the value of 

(reverse 
(run* (z) 

(flattenrev 0 ((a b) c) z))) 



The value in frame 68. 







What is the value of 

((a b . c) 

(run 2 (x) 

(a b c)). 

(flattenrev° x (a b c))) 


Why is the value 

78 

Because ( flattenrev° (a b . c) (a b c)) and 

((a b . c) 

(flattenrev° (a be) (a b c)) both succeed. 

(a b c)) 


What is the value of 

79 _ 

It has no value. 

(run 3 (x) 

(flattenrev° x (a b c))) 

In fact, it is still trying to determine the 
third value. 

What is the value of 

*° 574. 

(length 

Wow! 

(run* (x) 


(.flattenrev° ((((a (((b))) c))) d) x))) 




Now go make yourself a cashew butter and chutney sandwich. 



This space reserved for 


CHUTNEY STAINS! 













Here is an unusual definition. 


I 


Yes. 


(define any° 

(lambda ( g) 

(cond e 

id # s) 

(else (any° g))))) 

> ■ 

Is it. recursive? 


Is there a base case? 



Can any ° ever succeed? 


Yes, if the goal g succeeds. 


Here is another definition. 


(define never 0 ( any° #u)) 

L — * 

Can never 0 ever succeed or fail? 


No, 

because although the question of the first 
cond e line within any° fails, the answer of 
the second cond R line, ( any° #u), is where 
we started. 


What is the value of Of course, the run 1 expression has no value. 

(run 1 (q) 

never 0 

(= ««» 


What is the value of 

(run 1 ( q ) 

#u 

never 0 ) 



because #u fails before never 0 is reached. 


Here is a useful definition. #t. 


(define always 0 (any 0 #s)) 


What value is associated with q in 

(run 1 (q) 
always ° 

(= « q)) 










Compare always 0 to #s. 


always 0 always can succeed any number of 
times, whereas #s can succeed only once. 



What is the value of 

(run* (q) 
always ° 

(= #t q)) 


It has no value, 

since run* never finishes building the list 
(#t #t #t ... 
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What is the value of (#t #t #t #t #t). 

(run 5 (q) 
always ° 

(= q)) 


And what is the value of ' It’s the same: (#t #t #t #t #t). 

(run 5 (q) 

(= #t q) 
always 0 ) 


Here is the definition of sal°J No. 

(define sal° 

(lambda ( g) 

(cond e 
(#s #s) 

(else g)))) 

Is sal° recursive? 



scd° stands for “succeeds at least once 11 . 


What is the value of 

(run 1 {q) 

( sal 0 always°) 

(= #t ?)) 



(«). 

because the first cond e line of sal° 
succeeds. 








What is the value of 


(run 1 (q) 

( sal° never 0 ) 

(= * t ,)> 



(#t), 

because the first cond e line of sal° 
succeeds. 


What is the value of 
(run* {q) 

( sal° never 0 ) 

(= #t q)) 


It has no value, 

because run* never finishes determining 
the second value. 


What is the value of 

(run 1 {q) 

(sal° never°) 

#u 

(= #t q)) 


It has no value, 

because when the #u occurs, we pretend 
that the first cond e line of sal° fails, 
which causes cond' to try never°, which 
neither succeeds nor fails. 


What is the value of 


(run 1 (q) 
always 


#u 


#t q)) 


It has no value, 

because always 0 succeeds, followed by #u, 
which causes always 0 to be retried, which 
succeeds again, which leads to #u again, 
which causes always 0 to be retried again, 
which succeeds again, which leads to #u, 
etc. 


What is the value of 

(run 1 (q) 

(cond e 

((= #f q) always 0 ) 
(else ( any° (= #t g)))) 
(= #t q)) 


It has no value. 

First, #f gets associated with < 7 , then 
always 0 succeeds once. But in the outer 
(= #t q) we can’t associate #t with q since 
q is already associated with #f. So the 
outer (= #t q) fails, then always 0 succeeds 
again, and then (= #t q) fails again, etc. 
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What is the value of 1 

(run 1 ( q ) 

(concT 

((= #f q) always 0 ) 
(else (= #t q))) 

(= #t q)) 


(#t), 

because after the first failure, instead of 
staying on the first line we try the second 
cond' line. 


^ cond‘ is written condi and is pronounced “con-deye". 


What happens if we try for more values? 

(run 2 (q) 

(cond 1 

((= #f q) always °) 

(else (= #t q))) 

(= #t 9 )) 



It hits no value, 

since the second cond 1 line is out of values. 


So does this give more values? 
(run 5 (q) 

t 

(cond* 

((= #f q) always 0 ) 

(else ( any° (= #t q)))) 
(= #t q)) 


Yes, it yields as many as are requested, 

(#t #t #t #t #t). 

always° succeeds five times, but 
contributes none of the five values, since 
then #f would be in the list. 


Compare cond* to cond e . 


cond* looks and feels like cond e . cond* 
does not, however, wait until all the 
successful goals on a line are exhausted 
before it tries the next line. 
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Are there other differences? " Yes. A cond* line that has additional values 

is not forgotten. That is why there is no 

value in frame 20. 



The Law of conde 


cond6 behaves like conde, except that its values are interleaved. 







What is the value of 
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(tea #f cup). 


(run 5 (r) 
(cond' 


(( teacup r) #s) 
#f r) #s) 
(else #u))) 



t See 1:56. 
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Let’s be sure that we understand the ’ (#t #t #t #t #t). 

difference between cond e and condh 
What is the value of 

(run 5 (q) 

(cond J 

((= #f q) always 0 ) 

((= #t q) always°) 

(else #u)) 

(S « q)) 


And if we replace cond 1 by cond <: , do we get No, 

the same value? then the expression has no value. 


Why does It has no value, 

/ 5 / \ because the first cond e line succeeds, but 

(run* (q) ’ 

always ° 

((= #t q) always 0 ) 

(else #u)) 

(= #t q)) 

have no value? 



the outer (= #t q) fails. This causes the 
first cond e line to succeed again, etc. 





What is the value of 

(run 5 (g) 

(cond e 

(always ° #s) 

(else never 0 )) 

(= #t q)) 
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It is (#t #t #t #t #t). 

And if we replace cond e by cond*, do we get 
the same value? 

29 

No. 

And what about the value of 

(run 5 (q) 

(cond 1 

( always° #s) 

(else never 0 )) 

(= « q)) 

It has no value, 

because after the first cond 1 line succeeds, 
rather than staying on the same cond 1 
line, it tries for more values on the second 
cond 1 line, but that line is never 0 . 

What is the value oH 

(run 1 {q) 

(all 

(cond e 
((= #f ?) #s) 

(else (= #t <j))) 
always °) 

(= #t}» 

It has no value. 

First, #f is associated with q. Then 
always 0 , the second goal of the all 
expression, succeeds, so the entire all 
expression succeeds. Then (= #t q) tries to 
associate a value that is different from #f 
with q. This fails. So always 0 succeeds 
again, and once again the second goal, 

(= #t </), fails. Since always 0 always 
succeeds, there is no value. 

^ The goals of an all must succeed for the all to succeed. 



Have a slice of Key lime pie. 


Now, what is the value of 1 

(run 1 (g) 

(air 
(cond e 
((= «f «) *s) 

(else (= #t ?))) 
always 0 ) 

(= « 9 )) 



(#t). 

First, #f is associated with q. Then, 
always 0 succeeds. Then the outer goal 
(= #t q) fails. This time, however, all* 
moves on to the second cond‘ line and 
associates #t with q. Then always ° 
succeeds, as does the outer (= #t q). 



all 1 is written alii and is pronounced “all-eye”. 


Now, what if we want more values? 

(run 5 (g) 

(air 

(cond e 

((= #f q) #s) 

(else (= #t q))) 
always°) 

(= q)) 


(#t #t #t #t #t). 

always 0 succeeds ten times, with the value 
associated with q alternating between #f 
and #t. 


What if we swap the two cond e lines? Its value is the same: (#t #t #t #t #t). 

(run 5 {q) 

(all* 

(cond e 

((= #t q) #s) 

(else (= #f q))) 
always °) 

(= « q)) 



Wliat does the stand for in cond' and 
all 1 


It stands for interleave. 
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Let’s be sure that we understand the (#t #t #t #t #t). 

difference between all and all\ What is the 
value of 


(run 5 (q) 

(all 

(cond R 
(#s #s) 

(else never 0 )) 
always 0 ) 

#t 9 )) 


And if we replace all by all' , do we get the 
same value? 



No, 

it has no value. 


Why does 

(run 5 (q) 

(all' 

(#s #s) 

(else never 0 )) 
always °) 

(= #t q)) 

have no value? 



It has no value, 

because the first cond e line succeeds, and 
the outer (= #t q) succeeds. This yields 
one value, but when we go for a second 
value, we reach never 0 . 


Could cond 1 have been used instead of 
cond e in these last two examples? 




Yes, 

since none of the cond R lines contribute 
more than one value. 



This is a good time to take a break. 



This is 


A BREAK 













Is 0 a bin 



Is 1 a bit? 

2 Yes. 

Is 2 a bit? 

3 No. 


A bit is either a 0 or a 1. 

Which bits are represented by x 

4 

0 and 1. 

Consider the definition of bit-xor°. 

5 

When x and y are the same. 1 

(define bit-xor° 

(lambda (x y r) 

^ Another way to define bit-xor° is to use bit-nand° 

(cond f: 

((= 0 x) (= 0 y) (= 0 r)) 

((= 1 *) (= 0 y) (= 1 r)) 

((= 0 x) (= 1 y) (= 1 r)) 

((= 1 x) (= 1 y) {= 0 r)) 

(else #u)))) 

(define bit-xor° 

(lambda (x y r) 

(fresh (s t v) 

( bit-nand° x y s) 

( bit-nand° x s t) 

( bit-nand° s y u) 

(bit-nand° t tt r)))) 

When is 0 the value of r 

where bit-nand° is 


(define bit.-nand u 
(lambda (x y r) 

(cond e 

((= 01 ) (=0 y) (= 1 r)) 

((= 1 x) (= 0 y) (= 1 r)) 

((= 0 x) (= 1 y) (= 1 r)) 

((= l x) (= 1 V ) (= 0 r)) 

(else #u)))) 


bit~nand° is a universal binary boolean relation, since it can 
be used lo define all other binary boolean relations. 


(run* (s) 

(fresh (x y ) 

( lnt-xor° x y 0) 
(= (x y) 5 ))) 

which has the value 



Demonstrate this using run*. 


When is 1 the value of r 
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When x and y are different. 



Demonstrate this using run*. 


(run* ( s) 

(fresh (x y) 

( bit-xor° x y 1) 

(= (* y) •))) 

which has the value 



What is the value of 

(run* (s) 

(fresh (x y r) 

( bit-xor° x y r ) 
(= (x y r) s))) 


((0 0 0 ) 
(10 1 ) 
(Oil) 
( 110 )). 


Consider the definition of bit-and. 0 . 


(define bit-and° 

(lambda (x y r ) 

(cond c 

((= Ox) (=0 y) (= 0 r)) 
((= 1 x) 1= o y) (= 0 r)) 

((= 0 x) (= 1 y) (= 0 r)) 
((= 1 x) (= 1 y ) (= 1 r)) 
(else #u)))) 



When x and y are both 1. 



f Another way to define bit.-and° 
bit-not ° 


is to use bit-nand ° and 


(define bit-and° 

(lambda (x y r) 

(fresh \s) 

(bit-nand° x y s) 

( bit-not° s r)))) 

where bit-not° itself is defined in terms of bit-nand° 


When is 1 the value of r 


(define bit-not ° 
(lambda (x r) 

(bit-nand° s x r))) 


Demonstrate this using run*. 


(run* (s) 

(fresh (x y) 

(bit-and" x y 1) 
(= (x y) s))) 

which has the value 

((1 I ))- 


Consider the definition of half- adder°. 
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o.t 


(define half-adder 0 
(lambda (x y r c) 

(all 

( bit-xor° x y r) 

( bit-and° x y c)))) 

What value is associated with r in 
(run* (r) 

( half-adder° 1 1 r 1)) 


^ half-adder 0 can be redefined as follows. 

(define half-addt?r' J 
(lambda (x y r c) 

(cond* 

((= 0 z) (= 0 y ) (= 0 r) (= 0 c)) 

((= 1 x) (= 0 y) (= 1 r) (= 0 c)) 

((= 0 i) (= 1 y) (= lr) (=0 c)) 

1(= 1 x) (= 1 y) (= 0 r) (= 1 c)) 

(CISC #u)))) 


What is the value of 

(run* (s) 

(fresh {x y r c) 

( half-adder° x y r c) 
(= (x y r c) s))) 


((0 0 0 0 ) 
(10 10 ) 
(0 110 ) 
(110 1 )). 


Describe half-adder 0 . 


Given the bits x, y, r, and c, half-adder 0 
satisfies x-\-y = r + 2-c. 


Here is full-adder 0 . 

(define fidl-adder 0 
(lambda (b x y r c) 

(fresh (w xy wz) 

(half-adder° x y w xy) 

(half-adder 0 w b r wz) 

( bit-xor° xy wz c)))) 

The x, y, r, and c variables serve the same 
purpose as in half-adder 0 . full-adder 0 also 

takes a carry-in bit, b. What value is 
associated with s in 

(run* (s) 

(fresh (r c) 

( full-adder° 0 1 1 r c) 

(= (r c) s))) 


(0 1 ).* 


1 full-adder 0 can be redefined as follows. 


(define full-adder° 

(lambda (b x y r c) 

(cond* 

((= 0 6) (= 0 x) (= 0 y) (= 0 r) (= 0 c)) 

((= 1 6) (= 0 x) (= 0 y) (= 1 r) {= 0 c)) 

((= 0 6) (= 1 x) (= 0 y) (= 1 r) (= 0 c)) 

((= 1 b) (= 1 *) (= 0 y) (= 0 r) (= 1 c)) 

((= 0 b) (= 0 x) (= 1 y) (= 1 r) (= 0 c)) 

((= 1 b) (=0 x) (= 1 y) (= 0 r) (= 1 c)) 

((= 0 b) (= 1 x) (= 1 y) (= 0r)(=l c)) 

((- 1 fc) (= 1 x) (= 1 y) (= 1 r) (= 1 c)) 

(else f u)))) 






What value is associated with 5 in 


lfi 


( 11 ). 

(run* (s) 

(fresh (r c) 

(full-adder 0 1 1 1 r c) 

(= (r c) «))) 


What is the value of 

(run* (s) 

(fresh (b x y r c) 

(full-adder 0 b x y r c) 
(= (b x y r c) s))) 


((0 0 0 0 0 ) 
(10 0 10 ) 
( 01010 ) 
(110 0 1 ) 
(00110) 
(10 10 1 ) 
( 01101 ) 
(mu)). 


Describe full-adder 0 . 


I s 

Given the bits b , x, y, r, and c, full-adder 0 
satisfies 6 + x + y = r + 2 c. 


What is a number •? 


A number is an integer greater than or equal 
to zero. 


Is each number represented by a bit? 



Each number is represented as a list of 

bits. 


Which list represents the number zero? 



Not quite. Try again. 


IIow about the empty list ()? 


Correct. Is there any number that, (0) 
represents? 



Each number is represented uniquely, 
therefore (0) cannot also represent the 
number zero. 










Which list represents the number one? 



( 1 ), 

because the value of (1) is 1 • 2°, which is 
the number one. 


Which number is represented by 



because the value of (1 0 1) is 
1 • 2° + 0 ■ 2 1 + 1 • 2 2 , which is the same as 
1 + 0 + 4, which is five. 


Correct. Which number is represented by 



because the value of (1 1 1) is 
1 • 2° + 1 • 2 1 + 1 ■ 2 2 , which is the same as 
1 + 2 + 4, which is seven. 


Also correct. Which list represents 9 


(10 0 1 ), 

because the value of (1 0 0 1) is 
1 • 2° + 0 • 2 1 + 0 • 2 2 + 1 • 2\ which is the 
same as 1 + 0 + 0 + 8, which is nine. 


Yes. How do we represent 6 



As the list (1 1 0)? 


No. Try again. 


Then it must be (0 1 1), 

because the value of (0 1 1) is 
0 • 2° + 1 • 2 1 + 1 • 2 2 , winch is the same as 
0 + 2 + 4, which is six. 


Correct. Does this seem unusual? 



Yes, it seems very unusual. 


How do we represent 19 


As the list (110 0 1)? 



Yes. How do we represent 17290 
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As the list (0 1 0 1 0 0 0 1 1 1 0 0 0 0 1)? 


33 ^_ 

Correct again. What is interesting about the They contain only 0’s and l’s. 

lists that represent the numbers that we have 

seen? 


Yes. What else is interesting? 



Every list ends with a 1. 
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Does every list representation of a number Yes, except for the empty list (), which 

end with a 1? represents zero. 


Compare the numbers represented by n and (0 . n) is twice n. 

(0 . n ) But n cannot be (), since (0 . n) is (0), 

which does not represent a number. 


If n were (1 0 1), what would (0 . n) be? (0 10 1), 

since twice five is ten. 


38 

Compare the numbers represented by n and (1 . n) is one more than twice n, 
(1 . n) even when n is (). 


„ . „ k 39 

If n were (1 0 1), what would (1 . n) be? (110 1), 

since one more than twice five is eleven. 


What is the value of 
( build-man 0) 



What is the value of 
( huild-num 36) 



(0 0 1 0 0 1 ). 


What is the value of 
( huild-num 19) 


42 


(110 0 1 ). 












Define build- num. 


•43 


Here is one way to define it. 


(define build-nurn 
(lambda (n) 

(cond 

(( zero? n) ()) 

((and (not (zero? n)) (even? n)) 
(cons 0 

(build-num (4- n 2)))) 


((odd? n) 

(cons 1 

(build-num (4 


« 1 ) 2 ))))))) 


Redefine build-num , where (zero? n) is not 
the question of the first cond line. 


That’s easy. 

(define build-num 
(lambda (n) 

(cond 
((odd? n) 

(cons 1 

(build-num (4- (— n 1) 2)))) 
((and (not (zero? n)) (even? n)) 
(cons 0 

(build-num (4- n 2)))) 

((zero? n) ())))) 


Is there anything interesting about these ' For any number rc, one and only one cond 
definitions of build-num question is trued 



Thank you Eclsger YV. Dijkstra (1930 2002). 


46 

Can we rearrange the cond lines in any Yes. 

order? This is called the non-overlapping 

property. It appears rather frequently 
throughout this and the next chapter. 






What is the sum of (1) and (1) 


47 


(0 1), which is just two. 


What is the sum of (0 0 0 1) and (111) 


What is the sum of (1 1 1) and (0 0 0 1) 


What is the sum of (1 1 0 0 1) and () 


What is the sum of () and (1 10 0 1) 


What is the sum of (11 10 1) and (1) 








51 




(1 1 1 1), which is just fifteen. 


(1 1 1 1), which is just fifteen. 


(110 0 1), which is just nineteen. 


(110 0 1), which is just nineteen. 


(0 0 0 1 1), which is just twenty-four. 


Which number is represented by 




It depends on what x is. 


Which number would be represented by 

(x 1) 

if x were 0? 


54 


Two, 


which is represented by (0 1). 


Which number would be represented by 
(x 1) 

if x were 1? 



Three, 

which is represented by (1 1). 


So which numbers are represented by 




Two and three. 


Which numbers are represented by 

(x x 1) 


Four and seven, 

which are represented by (0 0 1) 
and (1 1 1), respectively. 












Which numbers are represented by 

(x 0 y 1) 


58 


Eight, nine, twelve, and thirteen, 
which are represented by (0 0 0 1), 
(1 0 0 1), (0 0 1 1), and (10 1 1), 
respectively. 


Which numbers are represented by 
(x 0 y z) 


59 


Once again, eight, nine, twelve, and thirteen, 
which are represented by (0 0 0 1), 

(1 0 0 1), (0 0 1 1), and (1 0 1 1), 

respectively. 


Why do both (x 0 y 1) and (x 0 y z) 
represent the same numbers? 


50 


Because 2 must be either a 0 or a 1. If z 
were 0, then (x 0 y z) would not represent 
any number. Therefore z must be 1. 


Which number is represented by 

(*) 


61 


One, 


which is represented by (1), since (0) does 
not represent a number. 


What does z represent? 


62 


Every number greater than or equal to zero 


Which numbers are represented by 

( 1 -*) 


63 


It depends on what 2 is. 


Which number is represented by 

(1 . z) 

where z is () 


64 


One, 


since (1 . ()) is (1). 


Which number is represented by 

(1 •*) 

where 2 is (1) 


65 


Three, 


since (1 . (1)) is (1 1). 










66 


Which number is represented by 

(1 . z) 

where z is (0 1) 


Five, 

since (1 . (0 1)) is (1 0 1). 


So which numbers are represented by 

(1 . z) 



All the odd numbers? 


68 

Right. Then, which numbers are represented All the even numbers? 

by 

(0 . z) 


Not quite. Which even number is not of the 
form (0 . z) 




Zero, which is represented by (). 


For which values of 2 does All numbers greater than zero. 

(0 . z) 

represent numbers? 


Are the even numbers all the numbers that ' Yes. 

are multiples of two? 


Which numbers are represented by 

(0 0 . 2 ) 


Every other even number, starting with four. 


Which numbers are represented by 
(OI.2) 


73 


Every other even number, starting with two 


Which numbers are represented by 
(IO.2) 


74 


Every other odd number, starting with five 











Once again, every other odd number, 
starting with five. 


Which numbers are represented by 

(1 0 y . z) 


Why do (1 0 . z) and (1 0 y . z) represent 
the same numbers? 


Because z cannot be the empty list in 
(1 0 . z) and y cannot be 0 when z is the 
empty list in (1 0 y . z). 


Which numbers are represented by 


(0 y • z) 



Every even number, starting with two. 


Which numbers are represented by 

(1 V - z) 



Every odd number, starting with three. 


Which numbers are represented by 
(V • z ) 


Every number, starting with one—in other 
words, the positive numbers. 


, I 

Consider the definition of pos°. #t. 

(define pos° 

(lambda (n) 

(fresh (a d) 

{= (a . d) n)))) 

What value is associated with q in 

(run* (q) 

(pos° (0 1 1)) 

(= #t Q )) 


What value is associated with q in #t. 

(run* (q) 

(pos° (1)) 

(= #t q)) 









What is the value of 


82 


o 

(run* ( q) 

(. P os ° 0 ) 

(= « q)) 


What value is associated with r in 

(run* (r) 

( pos° r)) 



Does this mean that (pos° r ) always Yes. 

succeeds when r is a fresh variable? 


Which numbers arc represented by 

(x y . z) 


Every number, starting with two—in other 
words, eveiy number greater than one. 


Consider the definition of >1°. #t. 

(define >1° 

(lambda (n) 

(fresh (a ad dd)* 

(= (a ad . dd) n)))) 

What value is associated with q in 

(run" (q) 

(> 1 » (0 1 1 )) 

(= #t ?)) 


^ The names a, ad, and dd correspond to car, cadr , and 
cddr. 


What is the value of 

(run* (q) 

(> 1 ° (0 1 )) 

(= « q)) 


(#t). 


87 
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What is the value of (). 

(run* (?) 

(> 1 ° ( 1 )) 

(= #t 9)) 


What is the value of 

(run* (?) 

(> 1 ° 0 ) 

(= * q)) 



Wliat value is associated with r in 

(run* (r) 

(>1° r)) 



Does this mean that (>1° r) always succeeds Yes. 
when r is a fresh variable? 


An n-representative is the first n bits of a (Oil), 

number, up to and including the rightmost 1. 

If there is no rightmost 1, then the 

n-representative is the empty list. What is 
the n-representative of 

(Oil) 


What is the n-reprcscntative of 
(0 x 1 0 y . z) 


(0 x 1), 

since everything to the right of the 
rightmost 1 is ignored. 


What is the n-representative of 
(0 0 y . z) 




since there is no rightmost 1. 


What is the n-representative of 



2 










What is tho value oft 

(run 3 (5) 

(fresh (x y r) 

( adder 0 0 x y r) 
(= (x y r) /))) 


That depends on the definition of adder 0 , 
which we do not see until frame 118. But we 
can understand adder 0 : given the bit d , and 
the numbers n, m, and r, adder 0 satisfies 
d + n + rn = r. 


What is the value oft 

(run 3 (5) 

(fresh (x y r) 

( adder 0 0 x y r) 
(= (x y r) /))) 


(U 0 -J 

(0 ( v ,)( vn )) 

(( 1 ) ( 1 ) (0 1 ))). 

( adder 0 0 x y r) sums x and y to produce 
r. For example, in the first value, zero 
added to a number is the number. In the 
second value, the sum of () and ) is 

(_ 0 . ). In other words, the sum of zero 

and a positive number is the positive 
number. 


98 

Is ((1) (1) (0 1)) a ground value? Yes. 


Is (_ 0 () _ 0 ) a ground value? 


99 


No, 

because it contains one or more variables. 1 


t In fact. (_ 0 () -q) has no variables, however prior to being 
reified, it contained two occurrences of the same variable. 


What can we say about the three values in The third value is ground and the other two 

frame 97? values are not. 


Before reading the next frame. 
Treat Yourself to a Hot Fudge Sundae! 




What is the value of 


101 


(run 


22 


(s) 


(fresh ( x y r) 
{adder 0 0 x y r) 
(= (x y r) s))) 


((-o ()„) 

(0 („•-,) (- 0 --,)) 

(( 1 ) ( 1 ) (0 1 )) 

((1) (o,.,)(i,.,)) 

((« ,-,)(!) (l-o--,)) 

(( 1 ) (1 1 ) (0 0 1 )) 

((0 1 ) (0 1 ) (0 0 1 )) 

(( 1 ) ( 10 ,..,) (0 1 ,..,)) 

((1 1 ) ( 1 ) (0 0 1 )) 

(( 1 ) ( 111 ) (0 0 0 1 )) 

(( 11 ) (0 1 ) (10 1 )) 

(( 1 ) ( 110 ,.,) (0 0 1 ,.,)) 

(( 10 ,.,) ( 1 ) (0 1 ,.,)) 

(( 1 ) (1 1 1 1 ) (0 0 0 0 1 )) 

((0 1 ) (0 0 ,.,) (0 1 ,.,)) 

(( 1 ) (1 1 1 0 ,.,) (0 0 0 1 ,.,)) 

(( Ill ) ( 1 ) (0 0 0 1 )) 

(( 1 ) (1 1 1 1 1 ) (0 0 0 0 0 1 )) 

((0 1 ) (1 1 ) (10 1 )) 

(( 1 ) (1 1 1 1 0 ,.,) (00 0 0 1 ,.,)) 

((1 i o , . ,) ( 1 ) (0 0 1 ,.,)) 

(( 1 ) (1 1 1 1 1 1 ) (0 0 0 0 0 0 1 ))). 


102 

How many of its values are ground, and how Eleven values are ground and eleven values 
many are not? are not. 


What are the nonground values? ((_ 0 () _ 0 ) 

(0 (,.,)(,.,)) 

((i) (o , .,) (i, .,)) 

(( 0 ,.,)( 1 ) ( 1 ,.,)) 

(( 1 ) ( 10 ,.,) (0 1 ,.,)) 

(( 1 ) ( 110 ,.,) (0 0 1 ,.,)) 
(( 10 ,.,) ( 1 ) (0 1 ,.,)) 

((0 1 ) (0 0 ,.,) (0 1 ,.,)) 

(( 1 ) (1 1 1 0 ,.,) (0 0 0 1 ,.,)) 
(( 1 ) (1 1 1 1 0 ,.,) (0 0 0 0 1 ,.,)) 
((1 10 ,.,) ( 1 ) ( 001 ,.,))). 





What interesting property do these eleven 
values possess? 


104 


The width' of r is the same as the width of 
the wider of x and y. 


1 The width of a number n can be defined as 

(define width 
(lambda (n) 

(cond 

((null? n) 0) 

((pair? n) (+ (width (cdr n)) l)) 
(else 1)))) 


Wlmt is another interesting property that ' Variables appeal- in r, and in either x or y, 
these eleven values possess? but not in both. 


| I ) C 

What is another interesting property that Except for the first value, r always ends with 

these eleven values possess? . as does the wider of x and y. 


What is another interesting property that u The n-representative of r is equal to the sum 
these eleven values possess? of the n-representatives of x and y. 

In the ninth value, for example, the sum of 
(1) and (1 1 1) is (0 0 0 1). 


Describe the third value. 


108 


Huh? 


109 

Here x is (1) and y is (0 ^ . _ t ), a positive Almost, 
even number. Adding x to y yields the odd since x + y = y + x. 

numbers greater than one. Is the fifth value 
the same as the seventh? 


Does each value have a corresponding value No. 

in which x and y arc swapped? For example, the first two values do not 

correspond to any other values. 








What is the corresponding value for the 
tenth value? 


Ill 


(( 11110 ,._,)( 1 ) (0 0 0 0 1 ,..,)). 
However, this is the nineteenth nonground 
value, and we have presented only the fust 
eleven. 


112 

Describe the seventh value. Frame 75 shows that (1 0 ^ ) represents 

eveiy other odd number, starting at five. 
Incrementing each of those numbers by one 
produces every other even number, starting 
at six, which is represented by (0 1 ^ . _,). 


Describe the eighth value. 


The eighth value is like the third value, but 
with an additional leading 0. In other words, 
each number is doubled. 


114 

Describe the 198th value, which has the (10 0^..,) represents every fourth odd 

value ((0 0 1) (1 0 0 ) (1 0 1 _q . )). number, starting at nine. Incrementing each 

of those nmnbers by four produces every 
fourth odd number, starting at thirteen, 
which is represented by(10 1_ o ._ l ). 


What are the ground values of frame 101? " (((1) (1) (0 1)) 

(( 1 ) (1 1 ) (0 0 1 )) 

((0 1 ) (0 1 ) (0 0 1 )) 

((1 1 ) ( 1 ) (0 0 1 )) 

((1) (111) (0 0 0 1)) 

((1 1) (0 1) (1 0 1)) 

(( 1 ) (1 1 1 1 ) (0 0 0 0 1 )) 

((111) (1) (0 0 0 1)) 

(( 1 ) (1 1 1 1 1 ) (0 0 0 0 0 1 )) 

((0 1 ) (1 1 ) (10 1 )) 

(( 1 ) (1 1 1 1 1 1 ) (0 0 0 0 0 0 1 ))). 


What interesting property do these values 
possess? 


The width of r is one greater than the width 
of the wider of x and y. 








What is another interesting property of these 
values? 


Each list cannot be created from any list in 
frame 103, regardless of which values are 
chosen for the variables there. This is an 
example of the non-overlapping property 
described in frame 46. 


Itg; 

Here are adder 0 and gen-adder °. A carry bit. ^ 

(define adder 0 

(lambda {d n m r) 

(cond 1 

((= 0 d) (= () m) (= n r)) 

((= 0 d ) (= 0 n ) {= m r ) 

{pos° m)) 

((= 1 d) (= () rn) 

{adder 0 0 n (1) r)) 

((= 1 d) (= () n) ( pos° m) 

{adder 0 0 (1) m r)) 

((= ( 1 ) n ) (= ( 1 ) m) 

(fresh (a c) 

(= (a c) r) 

{full-adder 0 d 1 1 a c))) 

((= (1) n) {gen-adder 0 d n m r)) 

((= (1) m) (>1° n) (>1° r) 

{adder 0 d (1) n r)) 

((>1° n) {gen-adder 0 d n m, r)) 

(else #u)))) 


(define gen-adder° 

(lambda {d n m r) 

(fresh {a b c e x y z) 

(= (a . x) n) 

{= {b . y) m) {pos° y) 

(= (c . z ) r) {pos° z) 

(all' 

{full-adder 0 d a b c e) 

{adder 0 e x y z))))) 

^■ 

What is (l ^ Sc?e 10:26 for why gen-adder ° requires all 7 instead of all. 


What are n, m. and r 


119 


They are numbers. 






Wliat value is associated with s in 


120 


(0 1 0 1 ). 


(run* (s) 

( gen-adder° 1 (0 1 1) (1 1) s)) 


What are a, b, c, d, and e 

They are bits. 

What are n, to, r , x, y , and z 

122 

They are numbers. 

In the definition of gen-adder 0 , t/) and 

(pos° -z) follow (= (6 . y ) m) and 
(= (c . 2 ) r), respectively. Wliy isn’t there a 
(pos° x ) 

123 

Because in the first call to gen-adder 0 from 
adder 0 , n can be (1). 

What about the other call to gen-adder° 
from adder 0 

124 

The (>1° 7?.) call that precedes the call to 
gen-adder° is the same as if we had placed a 
( pos° x) following (= (a . x) n). But if we 
were to use (pos 0 x) in gen-adder 0 , then it 
would fail for n being (1). 

Describe gen-adder 0 . 

125 

Given the bit d , and the numbers n, m, and 
r, gen-adder" satisfies d + n + m = r, 
provided that n is positive and m and r are 
greater than one. 

What is the value of 

(run* (s) 

(fresh (a; y) 

( adder 0 0 x y (1 0 1)) 

(= (s y) s))) 

120 (((i 0 1) ()) 

(0 (i 0 1 )) 

((1) (0 0 1)) 

((0 0 1) (1)) 

((i 1 ) (o i)) 

((0 1) (11))). 

Describe the values produced by 

(run* (s) 

(fresh (x y) 

( adder 0 0 x y (1 0 1)) 

(= (* y) s))) 

127 

The values are the pairs of numbers that sum 
to five. 










We can define +° using adder 0 . 


I2S 


Here is an expression that generates the pail's 
of numbers that sum to five: 


(define +° 

(lambda (n m k ) 
(adder 0 0 n m k ))) 


Use -J-° to generate the pairs of numbers that 
sum to five. 


(run* (s) 

(fresh (x y) 

{+° * y\ 1 0 1)) 
(= (x y) «)))■ 


What is the value of 

' (((10 1) ()) 

(run* (s) 

(fresh (x y ) 

(0 (ioi)) 

((i) (ooi)) 

(+° x y (1 0 1)) 

((0 0 1) (1)) 

{= y) «))) 

((11) (01)) 

((0 1) (1 I)))- 


l 30 

Now define -° using +°. That is easy. 

(define —° 

(lambda (n m k) 
(+° m k n))) 


What is the value of 
(run* (q) 

(-» (0 0 0 1 ) (1 0 1 ) ,)) 


131 



What is the value of 
(run* (<z) 

(-“ (0 1 1 ) (0 1 1 ) ?)) 



What is the value of 
(run* (q) 

(-« (0 1 1) (0 0 0 1) q» 



Eight cannot be subtracted from six. since 
we do not represent negative numbers. 



Now go make yourself a baba ghanoush pita wrap. 











This space reserved for 
BABA GHANOUSH STAINS! 








What, is the value of 


(run 34 (0 
(fresh (x y r) 

(*° * y r ) 

(= (x y r) ())) 


((() 0) 

((-o ■-,)() 0) 

((1) (,.,)(,.,)) 

((-t) -i • -a) (1) (-0 -i ■ -a)) 

((0 1 ) (, . - a ) (0 , , . ,)) 

((!,•-,)(» 1) (0 1 , .,)) 

((0 0 1) (, --a) (0 0 -( -! ■ -a)) 

((1 1 ) (1 1 ) (10 0 1 )) 

((0 1 -o • -,) (o 1 ) (0 0 1 

((1 , . -.) (0 0 1) (0 0 1 ,..,)) 

((0 0 0 1) (, . _ a ) (0 0 0 , n . ,)) 

((1 1 ) (1 0 1 ) (1 1 1 1 )) 

(( Oil ) ( 11 ) (0 100 1 )) 

(( 11 ) ( Oil ) (0 100 1 )) 

((0 0 1 ,.,) (0 1 ) (0 0 0 1 ,.,)) 

((11) (111) (10 1 0 1)) 

((0 1 ,.,) (0 0 1 ) (0 0 0 1 ,.,)) 

((1 , ■ ,) (0 0 0 1) (0 0 0 1 ,.,)) 

((0 0 0 0 1) (-„,.„) (0 0 0 0 , , . „)) 
((1 0 1) (1 1) (1 1 1 1)) 

((0 1 1 ) (1 0 1 ) (0 1 1 1 1 )) 

((1 0 1 ) (0 1 1 ) (0 1 1 1 1 )) 

((0 0 1 1) (1 1) (0 0 1 0 0 1)) 

(( 11 ) (10 0 1 ) (110 11 )) 

((0 1 1) (0 1 1) (0 0 1 0 0 1)) 

((1 1) (0 0 1 1) (0 0 1 0 0 1)) 

((0 0 0 1 ,.,) (0 1) (0 0 0 0 1 ,.,)) 
((1 1) (1 1 0 1) (1 0 0 0 0 1)) 

((0 1 1) (1 1 1) (0 1 0 1 0 1)) 

((1 1 1) (0 1 1) (0 1 0 1 0 1)) 

((0 0 1 ,.,) (0 0 1) (0 0 0 0 1 ,.,)) 
((1 1) (1 0 1 1) (11100 1)) 

((0 1 ,.,) (0 0 0 1) (0 0 0 0 1 ,.,)) 

((1 ,.,) (0 0 0 0 1) (0 0 0 0 1 ,.,))). 


2 

It is difficult to see patterns when looking at Yes, 
all thirty-four values. Would it be easier to thanks, 

examine only the nonground values? 




Wliat are the first eighteen nonground 
values? 


((() -o 0 ) 


((-0 • -1 

) 0 0 ) 



(( 1 ) U 




((-0 -X . 

1 

■ 

r 

M 

1 



(( 01 ) ( 

-0 ~i • ~ 2 ) (0 , “i '“ a )) 



((1 -O ■ 

-,)( 01 ) (0 1 



((0 0 1 ) 

u (0 0 , 



((0 1 , 

- ( 01 ) (0 0 1 ,.,)) 



(( 1 - 0 - 

-,) (0 0 1 ) (0 0 1 ,.,)) 



((0 0 0 

1 ) (, , . ,) (0 0 0 , , . 

-,)) 


((0 0 1 

,.,)(0 1)(0 0 0 1 ,., 

)) 


((0 1 . 

■- i ) (0 0 1 ) ( 0001 ,., 

)) 


(( 1-0 - 

,) (0 0 0 1 ) (0 0 0 1 ,., 

)) 


((0 0 0 

0 1 ) (,,.,) (0 0 0 0 , . 

-1 • 

-J) 

((0 0 0 

1 ,.,) (0 1 ) (0 0 0 0 1 , 

• -1 

)) 

((0 0 1 

,.,) (00 1 ) (0 000 1 , 

• -1 

)) 

(( Ol-o 

. ,) (0 0 0 1 ) (0 0 0 0 1 , 

• -l 

)) 

((l-o- 

,) (0 0 0 0 1 ) (0 0 0 0 1 , 

• -1 

))) 


The value associated with p in 
(run* ( p) 

(»» (0 1) (0 0 1) p)) 

is (0 0 0 1). To which nonground value docs 
this correspond? 


The fifth nonground value 


((0 1 ) U • - 2 ) (0 


-o -1 



Describe the fifth nonground value. The product of two and a number greater 

than one is twice the number greater than 
one. 


Describe the sixth nonground value. 


The product of an odd number, three or 
greater, and two is twice the odd number. 


Is the product of (1 ^ . _ t ) and (0 1) odd or It is even, 

even? since the first bit of (0 1 is 0. 



Is there a nonground value that shows that 
the product of three and three is nine? 


No. 








Is there a ground value that shows that the 
product of three and three is nine? 
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Yes, 


the first ground value 


((1 1 ) ( 11 ) (10 0 1 )) 


shows that the product of three and three 
is nine. 


Here is the definition of *°. 

(define 

(lambda (n m p) 

(cond* 

((= 0 n) (= () P)) 

(( POS° n) (= () m) (= () p)) 

((= (1) n) ( pos° m) (= m p)) 

((>1° n) (= (1) m) (= n p)) 
((fresh (x z) 

(= (0 . x) n) ( pos° ar) 

(= (0 . z) p) ( pos° z) 

(>1° m) 

(*° x m ^))) 

((firesh (x y) 

(= (1 . x) 7i) (pos° x) 

(= (0 . y) m) ( pos° y) 

(*° m n p))) 

((fresh (x y) 

(= (1 . x) n ) (pos° x) 

(= (1 . y) 77i) (pos 0 y) 

( odd.-* 0 x n m p))) 

(else #u)))) 

Describe the first and second cond 1 lines. 


The first cond' line says that the product of 
zero and a number is zero. The second line 
says that the product of a positive number 
and zero is also equal to zero. 


Why isn’t ((= () m) (= () p)) the second 
cond' line? 


To avoid producing two values in which both 
n and m are zero. In other words, we enforce 
the non-overlapping property. 


Describe the third and fourth cond' lines. The third cond 1 line says that the product 

of one and a positive number is the number. 
The fourth line says that the product of a 
number greater than one and one is the 
number. 







Describe the fifth cond* line. 


The fifth cond' line says that the product of 
an even positive number and a number 
greater than one is an even positive number, 
using the equation n • m — 2 ■ (5 • m). 


Why do we use this equation? 


14 

In order for the recursive call to have a value, 
one of the arguments to *° must shrink. 
Dividing n by two clearly shrinks n. 


How do we divide n by two? 



With (= (0 . x) n), where x is not (). 


Describe the sixth cond' line. 


This one is easy. The sixth cond 1 line says 
that the product of an odd positive number 
and an even positive number is the same as 
the product of the even positive number and 
the odd positive number. 


Describe the seventh cond 1 line. This one is also easy. The seventh cond' line 

says that the product of an odd number 

greater than one and another odd number 
greater than one is the result of 
( odd,-* 0 x n m p), where x is 


Here is odd-*°. 


(define odd-*" 


(lambda ( x 

n m p) 

(fresh ( q) 


(bound-* 

0 q p n rn) 

(*° x m 


(+° (0 • 

q) m p)))) 


18 


We know that x is . Therefore, 


n ■ m 




If we ignore bound-*", what equation 
describes the work done in odd-*° 








19 

Here is a hypothetical definition of bound-* 0 . Okay, so this is not the final definition of 

bound-* 0 . 


Using the hypothetical definition of bound-* 0 , 
what value would be associated with t in 

(run 1 (£) 

(fresh (n rn) 

(*° n m (1)) 

(= (n m) t))) 


Now what would be the value of 

(fresh (n m) 

(*° n m (1)) 

(= (n m) t ))) 
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Here is bound-* 0 . Clearly. 

(define bound-* 0 
(lambda (q p n m) 

(cond e 

((null 0 q) (pair 0 p)) 

(else 

(fresh (x y z) 

(cdr° q x) 

° V y) 

(cond 1 

((null 0 n) 

(cdr° m z) 

(bound-* 0 x y z ())) 

(else 

(cdr° n z) 

(bound-* 0 x y z tti)))))))) 



(run 2 (t) 


It would have no value, 
because run would never finish 
determining the second value. 


(( 1 ) (!))• 

This value is contributed by the third 
cond 1 line of *°. 



Is this definition recursive? 







What is the value of 
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(run 2 ( t) 

(fresh (n m) 

(*° n m ( 1 )) 

(= (n m) <))) 


((( 1 ) ( 1 ))), 

because bound-* 0 fails when the product of 
n and m is larger than p, and since the 
length of n plus the length of m is an 
upper bound on the length of p. 


What value is associated with p in 
(run* (p) 

(*° (1 1 1) (1 1 1 1 1 1) p)) 


(10 0 1110 11 ), 
which contains nine bits. 


If we replace a 1 by a 0 in 

(*° (1 1 1 ) (1 1 1 1 1 1 ) p), 

is nine still the maximum length of p 


because (1 1 1 ) and ( 111111 ) represent 

the largest numbers of lengths three and 
six, respectively. Of course the rightmost 1 
in each number cannot be replaced by a 0 . 


Here is the definition of = l ‘ Yes, it is. 


(define =1° 


(lambda (n m) 


(cond® 


((= 0 n ) (= 0 ™)) 


((= ( 1 ) n) (= ( 1 ) m)) 


(else 


(fresh (ax b y) 


(= (a . x) n) ( pos° 

x) 

(= (b . y) m) ( pos° 

y) 

(= l° x »)))))) 



Is this definition recursive? 


What value is associated with t in 

(run* (t) 

(fresh (w x y) 

(= l° (lwi.y) (01101)) 
(= (w x y) ())) 


U U 1)). 

since y is (_j 1 ), the length of (1 w x . y) 
is the same as the length of (0 1 1 0 1 ). 







What value is associated with b in 


(run* ( b) 

(=l° ( 1 ) (&))) 



because if b were associated with 0 , then 
( 6 ) would have become ( 0 ), which does 
not represent a number. 


What value is associated with n in 
(run* (n) 

(=/° (1 0 1 . n) (0 1 1 0 1 ))) 



(-o 1), 

because if n were (_ 0 1 ). then the length of 
(1 0 1 . n) would be the same as the 
length of (0 1 1 0 1 ). 


What is the value of 

(run 5 (t) 

(fresh (y z) 

(-i°(i-v) (!•*)) 

(= (v z) t))) 


((() 0 ) 

((i) (i)) 

((-o 1 ) (n 1 )) 

(U 1 1) (-3 -3 1)) 

(U -1 -3 1) (-3 -< ^ 1))), 

because each y and 2 must be the same 
length in order for (1 . y) and (1 . z) to 
be the same length. 


What is the value of 

(run 5 (t) 

(fresh (y z) 

(=(<> (1 . y) (0 . *)) 

(= (y -0 *))) 



(((i) (i)) 

((-„ i) (-. i)) 

(U l) (_, _ s l)) 

(U -,,1) U -4 i)) 

((-O -1 ~2 “3 1) (~4 "S -0 ' 



Why isn’t (() ()) the first value? 


Because if z were (), then (0 . z) would not 
represent a number. 


What is the value of 

(run 5 ( t) 

(fresh (y z) 

(=1° (1 . y) ( 01101 . z)) 

(s (V *) t))) 
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((( 



-0“l-2 


-O “1 “2-3 



-o 


1 "2 


1 ) 0 ) 

1 ) ( 1 )) 

-3 -4 1) (- 


1 )) 


(U 

((-o 



“1 “2 “3 -4 -R 


“3 "4 ”5 "6 




1 )) 


1 ) ( 


8 "9 


1 ))), 


because the shortest z is (), which forces y 
to be a list of length four. Thereafter, as y 
glows in length, so does z. 








Here is the definition of <1°. 


3-4 


(define < l° 

(lambda (n m) 

(cond e 

{(= 0 n ) {pos° m)) 

((= (1) n) (>1° m)) 

(else 

(fresh (ax b y) 

(= (a . x) n) ( pos° x) 

(= (6 . y) m) ( pos° y) 

(<l° x y)))))) 

How does this definition differ from the 
definition of =1° 


In the first cond e line, (= () m) is replaced 
by (pos° rn). In the second line, (= (1) m) 
is replaced by (>1° m). This guarantees that 
n is shorter than m. 


What, is the value of 

(run 8 (t) 

(fresh (y z) 

(<l° (1 . y) (01101. z)) 

(= (y z) t))) 



Why does z remain fresh in the first four 
values? 


The variable y is associated with a list that 
represents a number. If the length of this list 
is at most three, then (1 . y) is shorter than 
( 01101 . 2 ), regardless of the value 
associated with z. 


■ 7 

What is the value of It has no value. 

Clearly the first two cond f ' lines fail. In 
the recursive call, x and y are associated 
with the same fresh variable, which is 
where we started. 


(run 1 (n) 

( <1° n n.)) 






Define ^1° using —1° and <1°. 
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Is this correct? 


(define < l 0 


(lambda (n 

m) 

(cond e 



m ) #s) 

((<«“ n 

m) #s) 

(else #u)))) 


It looks like it might be correct. What is the 
value of 

(run 8 (t) 

(fresh (n m) 

« l° n m) 

(= (« m) m 
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((() 0 ) 
((i) (i)) 





-o 


“O 


-o 


1 ) (-X 1 )) 

-x 1) (-3 -3 1)) 

_ 3 1) u _ 4 _ 5 1)) 




“O “1 “2 “3 


“O “l “2 


i) (-. - 

-4 1 ) (- 


5 "G 


5 “G 



~D 


2 -3 


1 ) (-, 


1 )) 

-a -o 1 )) 

-8 -10 -11 



What value is associated with t in 

(run 1 (t) 

(fresh (n m) 

(</° n m) 

(*° n (0 1 ) m) 

(= (n m) t))) 



What is the value of 

(run 2 (0 
(fresh (77. 77 i) 

(^ l 0 n m) 

(*° 77 . (0 1) 771 ) 

(= (77. m) t))) 


It has no value, 

because the first cond e line of always 
succeeds, which means that n and m are 
always the same length. Therefore 
(*° 77. (0 1) 77 i ) succeeds only when n is (). 
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How can we redefine ^1° so that Let’s use cond*. 

(run 2 (<) 

(fresh (n m ) 

n m) 

(*° n (0 1 ) m) 

(= (n m) 0)) 

has a value? 


(define 


(lambda (n 

m) 

(cond* 


((=1° n 

m) # 5 ) 

((< l 0 n 

m) #s) 

(else #u)))) 


What is the value of 

(run 10 ( t) 

(fresh ( n m) 

(^/° n m) 

(*° n (0 1 ) m) 

(= (n m) 0 )) 


((() 0 ) 

(( 1 ) (0 1 )) 

((0 1 ) (0 0 1 )) 

((1 1 ) (0 1 1 )) 

((0 0 1 ) (0 0 0 1 )) 

((1-1,1) (Ol-o 1)) 

((0 1 1 ) (0 0 1 1 )) 

((0 0 0 1 ) (0 0 0 0 1 )) 

((1 ^ .. 1 ) (0 1 _ 0 1 )) 
((0 1 , 1 ) (0 0 1 _ 0 1 ))). 


Now what is the value of 

(run 15 (£) 

(fresh (n m) 

(^1° n m) 

(= (n m ) £))) 



((() 0 ) 

(0 (- 0 .-,)) 

(( 1 ) ( 1 )) 


(( 1 ) ( 


-o “1 


-,)) 







~o 


“O 


“O 


-o 


“O 








1) (-, 1)) 

1) (n -3 - 
■n 1) (-3 - 

-n 1) ( 

1 -2 1 ) ( 
-3 1) ( 


--J) 

1 )) 


-2-3-4 


-6 


-3 “4 -5 


1 )) 


-o -1 


- 0-1 - 2-3 


-4 -5 “6 


-0 


-o -1 


-o 


-o 


“2 “3 


“2 “3 


1 ) U - 
1 ) (-, - 
1 ) (- 
-« 1 ) (- 


5 -6 


5 “6 


5 -G 


5 


"2 -3 -4 


1 ) ( 


-G 



.-s)) 
1 )) 


-8 “9 


• - 10 )) 

1 )) 


-8 -9 -10 -11 


”8 -9 ”10 -11 


■-J) 

1 ))) 


Do these values include all of the values 
produced in frame 39? 
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Yes. 







Here is the definition of <°. 


♦ 


(define <° 

(lambda (n m) 
(cond* 

((</° n m) #s) 
((=/° n m) 
(fresh (x) 

(pos° x) 

(+° n x m))) 
(else #u)))) 

Define using <°. 


That is easy. 

(define 

(lambda (n m) 
(cond 1 
((= n m) #s) 
((<° n m) its) 
(else #u)))) 


What value is associated with q in 
(run* (q) 

(<° 0 o 1) (1 1 1)) 

(= « q)) 



#t, 

since five is less than seven. 


Wliat is the value of 
(run* («) 

«° (1 1 1 ) (1 0 1 )) 

(= #t ?)) 




0 . 

since seven is not less than five. 


What is the value of 
(run* ( q ) 

(<“ (1 0 1 ) (1 0 1 )) 
(= #t ?)) 



since five is not less than five. But if we 
were to replace <° with the value 
would be (#t). 


What is the value of 


(run 6 (n) 



M ioi))) 


(() (0 0 1 ) ( 1 ) 1 )), 

since 1) represents the numbers two 
and three. 


Wliat is the value of 

(run 6 (m) 

(<° (1 0 1 ) m)) 


(U -.) (011) (111)), 

since ^ ^ . _ 4 ) represents all the 

numbers greater than seven. 








What is the value of 
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(run* (n) 

(<° n n)) 


It has no value, 
since <° calls <1°. 


What is the value of 

(run 15 (t) 

(fresh (n m q r) 
(t° n m q r) 

(= (n m q r) t))) 


((() U--JO 0) 

((1) (1) (1) 0) 

((0 1) (1 1) () (0 1)) 

((0 1) (1) (0 1) ()) 

((1) U _ x . () (1)) 

((-o 1) U 1) (1) 0) 

((0, 1) (1 _ 0 1) 0 (0 _ 0 1)) 

((0 1) (_, 1) (01) 0) 

(U i) (-x -* -3 • -,) 0 (-o i)) 

((1 1) (0 1) (1) (1)) 

((0 0 1) (Oil) () (0 0 1)) 

((ii) (i) (l l) ()) 

((_, _ x i) U -3 -< -s • -J 0 (-o i)) 

(U nl)Un 1) (1) 0) 

((1 o 1) (0 11) 0 (1 o 1))). 

t° divides n by m, producing a quotient q 
and remainder r. 
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List all of the values that contain variables. ((() U--J 0 0) 

((1) (-,. _,) 0 (1)) 

(U 1) U 1) (1) 0) 

((o _ 0 1) (1 _ 0 1) 0 (0 1)) 

((o _ 0 1) (_, i) (o i) ()) 

(U l) (_ x . 3 • -J 0 (-o i)) 

(U 1) (-, -3 () (-0 i)) 

((_ 0 l) U i) (i) ())) 


Docs the third value ((_„ 1) (_ 0 1) (1) ()) Yes. 

represent two ground values? ((^ 1) (- 0 1) (1) ()) 

represents the two values 
((0 1) (0 1) (1) ()) and 
((1 1) (1 1) (1) ()). 


Do the fourth and fifth values in frame 54 Yes. 

each represent two ground values? 
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Does the eighth value in frame 54, 
((_ 0 1) (_ 0 1) (1) 0), 
represent four ground values? 


Yes 

((-. 1) (1) 0) 

represents the four values 

((0 o 1) (0 o 1) (1) 0 ), 
((10 1 ) ( 101 ) ( 1 ) 0 ), 

((0 1 1) (0 1 1) (1) ()), and 

((1 1 1 ) (1 1 1 ) ( 1 ) ()). 
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So is ((_<, 1) (_„ -j 1) (1) ()) just Yes. 

shorthand notation? 


Does the first value in frame 54, 

(0 (-o.-i)O 0), 

represent ground values? 


(0 U •-,)() 0) 

represents the values 

(0 ( 1 ) 0 0 ) 

(0 (01) () 0) 

(0 ( 11 ) 0 0 ) 

(0 (0 01 ) 0 ()) 

(0 (ioi) () ()) 

(0 (o 11 ) 0 0 ) 

(0 ( 111 ) 0 0 ) 

(0 (0 0 0 1 ) 0 0 ) 
(() (iooi) () ()) 

(() (oioi) () ()) 

(0 (noi) () ()) 

(0 (ooii) () ()) 

(0 (ion) () ()) 


I s (0 (-o • -i) () 0) just shorthand No, 

notation? since it is impossible to write eveiy ground 

value that is represented by 

(0 (-0.-.M) 0). 


Is it possible to write eveiy ground value 
that is represented by the second, sixth, and 
seventh values in frame 54? 


01 


No. 







How do the first, second, sixth, and seventh 
values in frame 54 differ from the other 
values in that frame? 


62 


They each contain an improper list whose 
last cdr is a variable. 


Define 


i 


(lambda (n m q r) 

(cond 1 

((= 0 ?) (= n r) (<° n m)) 

((= (!) q) (= 0 r ) (= 71 m ) 

(<° r m )) 

((<° m n) (<° r m) 

(fresh ( mq ) 

mg n) 

(*° m q mq) 

(+° mq r n))) 

(else #u)))). 


With which three cases do the three cond ; 
lines correspond? 


G4 


The cases in which the dividend n is less 
than, equal to, or greater than the divisor m, 
respectively. 


Describe the first cond 1 line. 


05 


The first cond’ line divides a number n by a 
number m greater than n. Therefore the 
quotient is zero, and the remainder is equal 
to n. 


According to the standard definition of 
division, division by zero is undefined and 
the remainder r must always be less than the 
divisor m. Does the first cond 1 line enforce 
both of these restrictions? 


66 


Yes. 


The divisor m is greater than the dividend 
n, which means that m cannot be zero. 
Also, since m is greater than n and n is 
equal to r, we know that m is greater than 
the remainder r. By enforcing the second 
restriction, we automatically enforce the 
first. 








In the second cond* line the dividend and Because this goal enforces both of the 

divisor are equal, so the quotient obviously restrictions given in the previous frame, 

must be one. Why, then, is the (<° r m) 
goal necessary? 


Describe the first two goals in the third 
cond* line. 


The goal (<° m n) ensures that the divisor 
is less than the dividend, while the goal 
(<° r m) enforces the restrictions in 
frame 66. 


Describe the last three goals in the third 
cond* line. 


The last three goals perform division in terms 
of multiplication and addition. The equation 

— = q with remainder r 
m 

can be rewritten as 


n = m • q + r. 

That is, if mq is the product of m and q, 
then n is the sum of mq and r. Also, since r 
cannot be less than zero, mq cannot be 
greater than n. 


Why does the third goal in the last cond' 
line use £l° instead of <° 


Because < l° is a more efficient 
approximation of <°. If mq is less than or 
equal to n, then certainly the length of the 
list representing mq cannot exceed the length 
of the list representing n. 


What is the value of 

(run* (m) 

(fresh (r) 

(-h° (1 0 1) m (1 1 1) r))) 


()■ 

since it fails. 
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Why is () the value of 

(run* (to) 

(fresh (r) 

(-t-° (10 1)m(ll 1) r))) 


We are trying to find a number to such that 
dividing five by to produces seven. Of course, 
no such to. exists. 


How is () the value of 

(run* (to) 

(fresh (r) 

(H-° (1 0 1) m (1 1 1) r))) 


The third cond' line of -j-° ensures that in is 
less than n when q is greater than one. 
Therefore -4-° can stop looking for possible 
values of m when m reaches four. 


Why do we need the first two cond 1 lines, 
given that the third cond* line seems so 
general? Why don’t we just remove the first 
two cond* lines and remove the (<° to n) 
goal from the third cond 1 line, giving us a 
simpler definition of 

(define -S-° 

(lambda (n to q r) 

(fresh ( mq ) 

(<° r to) 

(^1° mq n) 

(*° to q mq) 

(+° ™q r n )))) 


Unfortunately, our “improved” definition of 
-5-° lias a problem—the expression 

(run* (to) 

(fresh (r) 

(H-° (101)m(ll 1) r))) 
no longer has a value. 


Why doesn’t the expression 

(run* (to) 

(fresh (r) 

(+» (1 0 1) m (1 1 1) 7 -))) 

have a value when we use the new definition 
of -j-° 


Because the new -r° does not ensure that in¬ 
is less than n when q is greater than one. 
Therefore -r-° will never stop trying to find 
an to such that dividing five by in produces 
seven. 


Hold on! It's going to get subtle! 







Here is an improved definition of -j-° which is 
more sophisticated than the ones given in 
frames 63 and 74. All three definitions 
implement division with remainder, which 
means that (-r° n m q r) satisfies 
n = m • q + r with 0 ^ r < in. 


(define *r° 

(lambda (n rn q r) 
(cond* 


((= r n) (= () q) (<° n m)) 

((= (1) q) (=1° n m) (+° r m n) 

(<° r m)) 

(else 

(all 1 

(</° m n) 

(<° r m) 

lPOS° q) 

(fresh (n/t n/ < 7 / x qi qlm qlmr rr r; t ) 
(all 1 

(split 0 n r ni nh) 

(split 0 q r qi q h ) 

(cond* 

((= 0 

(= 0 9k) 


( 


rtl r qlm) 


(*° qi m qlm)) 

(else 

(air 

(pos° n h ) 

(*° qi m qlm) 
(+° qlm r qlmr) 


( 


qlmr n* rr) 


(split 0 rr r () r/J 
(+° n h m q h r,,))))))))))) 


Does the redefined t° use any new helper 
functions? 
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Yes, 

the new -r° relies on split 0 . 

(define split 0 

(lambda (n r l h) 

(cond* 

((= () n) (= () ft) (= () /)) 

((fresh (b n) 

(=(0 6. n) n) 

(= 0 r) 

(= (6 . n) ft) 

(= 0 0 )) 

((fresh (n) 

(= (1 . n) n) 

(= () 0 

(= n ft) 

(s (1) 0)) 

((fresh (bn a r) 

(=(0 6. n) n) 

(= (a . f) r) 

(= () 0 

(split 0 (b . h) f () ft))) 
((fresh (n a r) 

(= (1 . n) n) 

(= (a . f) r ) 

(= ( 1 ) 0 

(split 0 hr () ft))) 
((fresh (b h a f 1) 

(= (b . h) n) 

(= (a . r) r) 

(= (4 . i) I) 

(pos° i ) 

(split 0 h f i ft))) 

(else #u)))) 



What does split 0 do? 


77 


The call (split 0 n () l h) moves the lowest 
bit* of n, if any, into /, and moves the 
remaining bits of n into h; (split 0 n (1) l h) 
moves the two lowest bits of n into l and 
moves the remaining bits of n into h\ and 

(split 0 n (1 1 1 1) l h), 

(split 0 n (0 1 1 1) / /i), or 
(split 0 n (0 0 0 1) / h) move the five lowest 
bits of n into l and move the remaining bits 
into h; and so on. 



The lowest bit of a positive number n is the car of n. 


What else does split° do? 


Since split 0 is a relation, it can construct n 
by combining the lower-order bits of l with 
the higher-order bits of h, inserting padding 
bits as specified by the length of r. 


Why is split 0 ’s definition so complicated? Because split 0 must not allow the list (0) to 

represent a number. For example, 

(split 0 (0 0 1) () () (0 1)) should succeed, 
but (split 0 (0 0 1) () (0) (0 1)) should not. 
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How docs split 0 ensure that (0) is not By removing the rightmost zeros after 

constructed? splitting the number n into its lower-order 

bits and its higher-order bits. 


What is the value of this expression when 
using the original definition of -j-°, as defined 

in frame 63? 

(run 3 (t) 

(fresh (y z) 

(+° (1 0 . y) (0 1) * ()) 

(= (;/ *) m 


It has no value. 

We cannot divide an odd number by two 
and get a remainder of zero. The old 
definition of t° never stops looking for 
values of y and 2 that satisfy the division 
relation, even though no such values exist. 
With the latest definition of -h° as defined 
in frame 76, however, the expression fails 
immediately. 





Here is log° and its two helper functions. 
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(define log° 

(lambd 

a (n b q r) 

(cond 1 

((= 

1 (1) n) (; pos° b ) (= () q) (= () r)) 

((■ 

= 0 </) (<° n 6) (+° r (1) n)) 

((= 

: (1) q) (>1° b) ( 1 ° n b) (+° r b n)) 

((S 

= (1) 6) (j»s° ?) (+° r (1) n)) 

((■ 

= 0 b) ( pos° q) (= r n)) 

((S 

= (0 1) 6) 

(fresh (a ad dd) 


(po8° dd) 


(= (a ad • dd) n) 


(ezp2 0 n () q) 


(fresh (s) 


(split” n dd r s )))) 

((fresh (a ad add ddd) 


(cond e 


((= (i i) *)) 


(else (= (a ad add . ddd) 6)))) 

(<l° b n) 

(fresh (bwl bw nw nwl qll qi s) 


(exp 2 ° b () bwl) 


(+° bwl (1) bw) 


«l° 9 n) 


(fresh (g* bwql) 


(+° 9 (!) 9 i) 


(*° bw q 1 bwql) 


(<° nwl bwql)) 


(exp 2 ° n () nwl) 


(+° nwl (1) ntu) 


(t° nw bw qll s) 


(+° « (i) 4 U) 


(cond® 


((= Q «)) 


(else (<i° 9/ 9))) 


(fresh (bql q 8 gd/i qrd) 


(repeat ed-m\il° b qi bql) 


(t° rm feu;/ s) 


(+° % Q dh Ik) 


(+° <nq) 


(cond c 


((= qd qdh)) 


(else (<° qd qdh))) 


(fresh (bqd bql bq) 


(repeated-mul° b qd bqd) 


(*° bql bqd bq) 


(*° 6 bq bql) 


(+° bq r n) 


(<° « bql))))) 

(else #u)))) 


(define exp2° 

(lambda (n b q) 

(cond' 

((= (1) «) (S () q)) 

((>1° n ) (= (!) q) 

(fresh (s) 

(split 0 n b s (1)))) 
((fresh (q x b 3 ) 

(all' 

(= (° ■ 9i) ?) 

(po5° q x ) 

(<l° b n) 

( append° b (1 . b) b 2 ) 
(exp2° n b 2 ?,)))) 
((fresh (q x n h k 2 s) 

(all* 

(= (1 . ?i) q) 

(pos° q x ) 

(pos° n h ) 

(split 0 n b s rih) 
(append, 0 b (1 . b) b 2 ) 
(exp2° 72* b 2 q x )))) 
(else #u)))) 


(d efi ne repeated-mul ° 

(lambda (n q nq) 

(cond e 

((pos° n) (= () q) (= (1) nq)) 

((= (!) q) (= n n <l)) 

((>1° q) 

(fresh (q x nql) 

(+° <7i C 1 ) q) 

(repeated-mul 0 n q x nql ) 
(*° nql n nq))) 

(else #u)))) 




Guess what log° does? 
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It builds a split-rail fence. 


Not quite. Try again. 


It implements the logarithm relation: 
( log° n b q r) holds if n = b q 4- r. 
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Arc there any other conditions that the There had better be! 

logarithm relation must satisfy? Otherwise, the relation would always hold 

if q = 0 and r = n— 1, regardless of the 
value of b. 
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Give the complete logarithm relation. (log° n b q r) holds if n. = b q + r, where 

0 < r and q is the largest number that 
satisfies the relation. 


Does the logarithm relation look familial ? 



The logarithm relation is similar to the 
division relation, but with exponentiation 
in place of multiplication. 
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In which ways are log° and - 4 -° similar? Both log° and - 4 -° are relations that take four 

arguments, each of which can be fresh 
variables. The - 4 -° relation can be used to 
define addition, multiplication, and 
subtraction. The log" relation is equally 
flexible, and can be used to define 
exponentiation, to determine exact discrete 
logarithms, and even to determine discrete 
logarithms with a remainder. The log 0 
relation can also find the base b that 
corresponds to a given n and q. 


What value is associated with r in 
(run* (r) 

{log° (0 111) (0 1) (1 1) r)) 



(0 1 1 ), 

since 14 = 2 J -I- 6. 









Wliat is the value of 

(run 8 (s) 

(fresh (b q r) 

(log° (0 0 1 0 0 0 1) b q r) 

(> 1 ° <l) 

(= (& 9 0 s))) 


((( 1 ) (, • -,) (1 1 0 0 0 0 1 )) 

(0 -,.-,) (0 0 1 0 0 0 1)) 

((0 1 ) (0 1 1 ) (0 0 1 )) 

((0 0 1 ) (1 1 ) (0 0 1 )) 

((1 0 1) (0 1) (1 1 0 1 0 1)) 

((0 1 1) (0 1) (0 0 0 0 0 1)) 

((1 1 1) (0 1) (1 1 0 0 1)) 

((0 0 0 1 ) (0 1 ) (0 0 1 ))), 

since 

68 = l n 4- 67 where n is greater than one, 
68 = 0 n 4- 68 where n is greater than one, 

68 = 2 6 4- 4, 

68 = 4 3 4- 4, 

68 = 5 2 4- 43, 

68 = 6 2 4- 32, 

68 = 7 2 4- 19, and 

68 = 8 2 4- 4. 


Define exp° using log". 
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That’s easy. 


(define exp° 
(lambda (b q n) 
(log° nb q ()))) 


What value is associated with t in 
(run* (t) 

{exp 0 (1 1) (1 0 1) t)) 
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(110 0 1111 ), 

which is the same as ( build-num 243). 



Time for a banquet; you've earned it. 



THIS IS A NAPKIN! 













What is the essence of our style of 

definitions? 


1 


cond e and cond*? 


2 

No. Their job is to manage the order of How about car", cdr °, cons °, nulleq °, and 

values. Try again. pair 0 ? 


Not quite, but closer. One more try. 



Well, each of those six definitions rely on =, 
so it must be the essence. 


But, what about #s and #u 


They too arc simple goals, but = is the 
simplest goal that can succeed for some 
values and fail for others. 


Yes. The definition of = relies on unify, Okay, let’s begin, 

which we are about to discuss. 


Here are three variables u, v, and wf That’s easy. 

(define x (var x))t 

(define y (var y)) 
(define z (var z)) 

Define the variables x, y, and z. 


(define u (var u)) 
(define v (varv)) 
(define w (var w)) 


^ Each invocation of var (var is implemented as vector) is 
given a symbol and creates a different fresh variable (a 
nonempty vector), var? (var? is implemented as vector?) 
determines if its argument had been created by var. Prolog’s 
anonymous variable (sec page 2 of William F. Clocksin. 
Clause and Effect Springer, 1997.) can be defined as an 
identifier macro that expands to (var (quote _)). For 
discussion of identifier macros, see pages 193 and 204 of 
R. Kent Dybvig. The Scheme Programming Language third 
ed. MIT Press, 2003; and pages 47 and 48 of Matthias 
Felleisen, Robert Bruce Findler, Matthew Flatt, and Shriram 
Krishnamurthi. Building little languages with macros. 

Dr. Dobb’s Journal. April, 2004. 


* As a reminder, (define x (varx)) is written as 
(define x (var (quote x))). 









What is 

(z . a) 


7 


It is our way of representing an association. 
The Ihs (left-hand side) of an association 
must be a variable. The rhs (right-hand side) 
of an association may be any value.! 



Iks is car and rhs is cdr. 


What is the value of 
(rhs (z . b)) 



What is the value of 

(rhs (z . w )) 


The variable w. 


What is the value of 

(rhs (z . (x e y ))) 



The list (x e y). 


What is 

((z . a) (x . w) (y . z)) 


It is our way of representing a substitution t 

a list of associations. 


1 Most of this chapter is about substitutions and unification. 
Our unify is inspired by FVanz Baader and Wayne Snyder. 
"Unification theory/" Chapter 8 of Handbook of Automated 
Reasoning , edited by John Alan Robinson and Andrei 
Voronkov. Elsevier Science and MIT Press, 2001. 


Is 

((z . a) (x . x) (y . z)) 
a substitution? 


Not for us, 

since we do not permit associations like 
(x . x) in which its Ihs is the same as its 
rhs. 


It represents a substitution that does not 
contain any associations. 


What does it represent? 


Here is empty-s. 


(define empty-s ()) 








What is the value of 
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(walk z ((z .a) (x . w) (y . z))) 


because we walk from z to the rhs of its 
association, which is a. 


What is the value of 

(walk y ((z .a) (x . w) (y . z))) 


because we walk from y to the rhs of its 
association, which is z, and we walk from z 
to the rhs of its association, which is a. 


What is the value of 

(walk x ((z . a) (a: . w ) (y . z))) 


The fresh variable w, 

because we walk from x to the rhs of its 
association, which is w. 


What is the value of 

(walk w ((z .a) (x . w) (y . z ))) 



The fresh variable w , 

because w is not the Uis of any association. 


What is the value of 

(walk x ((x . y) (z . x) (y . z))) 


It has no value, 

because we never stop walking. The 
substitution ((x . y) (z . x) (y . z )) is 
said to be circular. 


What is the value of 

(walk w ((j: . y) (w . b) (z . x) (y . z))) 


The substitution 

((z . y) (w . b) (z . x) (y . z)) is 
circular, but the walk still terminates. 


If x is a variable and s is a substitution, does No. See frame 18. 
(walk x s) always have a value? 


21 

If x is a variable and .s is a substitution built Yes. 

by unify , does (walk x s) always have a 

value? 










If a walk has a value, what are the two 
possible types of values that it might have? 


It could be a fresh variable, or it could be a 
value that is not a variable. 



The value of the expression below is b. What 
are the values of the walks of u, v, and w 

(walk x 

((y • b) (x . y) (v . x) (w . x) (u . w ))) 


They are also b, 

since each walk leads to x, and we know 
where x leads. 


The value of the expression below is z. What 
are the values of the walks of u, v, and w 

(walk x 

((V • z) (x . y) (v . x) (w . x) (u . w))) 


They are also z, 

since each walk leads to x, and we know 
where x leads. 


What is the value of 

(walk u ((x . b) (w . (x e x)) (u . w))) 



The list (x e x). 


Why isn’t (b e b) the value? 


The job of walk is to find either a fresh 
variable or a non-variable value. In this case 
it finds the list (x e x), which is a 
non-variable value. This is a subtle point, 
because one could imagine a different version 
of walk (frame 47) that would return the 
value (b e b). 


Here is the definition of walk. 



(define walk 
(lambda (v s) 

(cond 
((var? v) 

(cond 

((ass q v s) =*>* 
(lambda (a) 

(walk (rhs a) s))) 
(else v))) 

(else v)))) 


Is walk recursive? 



These two expressions are equivalent. 


(cond 

((assg v 5 ) => /) 
(else v)) 


(let ((a (assq v s))) 
(cond 
(a {f a)) 

(else v))) 


walk relies on ass q, a standard function that we use to find 
an association in a substitution. 

We could revise fresh (and run) so that it would mark 
(by associating a variable with itself see frame 12) where in 
the substitution we have introduced a fresh variable. We 
could then recognize this pair with ( eq? (Uxs a) (rhs a)), thus 
avoiding a recursion and the need to search the entire 
substitution. 








When does the recursion happen? 


When v is the Ihs of an association in s. 



Consider the definition of ext-s , which 
extends a substitution. 

(define ext-s 
(lambda (x v s) 

(cons (x . v ) s))) 


It has no value, 

since the extended substitution is the same 
as the one in frame 18. 


What is the value of 

(walk x ( ext-s x y ((z . x) (y . 2 )))) 


What is the value of 
(walk y ((a: . e))) 



The fresh variable y. 


What is the value of 

(walk y ( ext-s y x ((rr . e)))) 



What is the value of 

(walk x ((y . z) (x . y))) 


The fiesh variable 2 . 


What is the value of 

(walk x (ext-s 2 b (( 1 / . 2 ) (x . y)))) 



Wliat is the value of 

(walk x (ext-s 2 w ((y . 2 ) (x . y)))) 



Wliat is the value of 
(unify v w s) 

for all values v and w and for all 
substitutions s 


It is either #f or it is a new substitution. The 
new substitution includes the associations of 
s and perhaps other associations. 











Here is unify. 


(define unify 
(lambda (v w s ) 

(let ((v ( walk v 5 )) 

(w {walk w 5 ))) 

(cond 

(( eq? v w) s) 

(( var? v) ( ext-s v w 5)) 

(( var? w) ( ext-s w v s)) 

((and {pair? u) {pair? iu)) 

(cond 

{{unify {car v ) {car w) s) 

(lambda (s) 

{unify {cdr v) {cdr w) .$))) 
(else #f))) 

{{equal? v w) s ) 

(else #0)))) 



What is the first thing that happens in unify 


We let-bind v (and w) to a possibly different 
value. Thus, we know that the new binding 
of v (and w) is either to a fresh variable or to 
a non-variable valued 


f Our very simple representation of variables (frame 6) 
makes it unsafe to pass vectors, other than variables, as the 
first, two arguments of unify . We could, however, define 
variables in many other ways, but it would unnecessarily 
complicate the definitions of var and var?. Nevertheless, the 
reader should not hesitate to experiment with refined 
definitions of var and var?. 


What is a simple way to improve unify 


We could determine if v is the same as w 
before let-binding v and w. 
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What is another way to improve unify If we have two variables, we can walk one of 

them, but while it is being walked, we can 
see if we meet the other. Then, we know that 
the two variables unify. This generalizes the 
improvement in the previous frame. 


What is the purpose of the eq? test? t If v and w are the same, we do not extend 

the substitution. Conveniently, this works 
whether or not v and w are fresh variables. 

^ We are using eq? primarily for comparing two fresh 
variables, but we also benefit from the eq? test on some 
non-variable values. Furthermore, although we use no 
effects, our definitions are not purely functional, since we 
rely on eq? to distinguish two variables (nonempty vectors) 
that were created at different times. This effect, however, 
could be avoided by including a birthdate variable in the 
substitution. Each time we would create variables, we would 
then extend the substitution with birthdate and the 
associated value of birthdate appropriately incremented. 





Explain why the next cond line uses var? 


Because if v is a variable it must be fresh*, 
since it has been walked. 



^ This behavior is necessary in order for = to satisfy “The 
Law of Fresh.” 


And what about the next cond line? 



Because if w is a variable it must be fresh, 
since it has been walked.* 


* The answer of this cond line could be replaced by 
(unify w v s), because for a value w and a substitution s t 
(walk (walk w s) s) = (walk w s). 
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What happens when both v and w are pairs? We unify the car of v with the car of w. If 

they successfully unify, we get a new 
substitution, wiiicli we then use to unify the 
edr of v with the edr of w. 


What is the purpose of the ((equal? v w) s) 
cond line? 


This one is easy. If either v or w is a pair, 
and the other is not, then clearly no 
substitution exists that can make them 
equal. Also, the equal? works for other kinds 
of values. 


What is the value of (a a c). 

The walked value of x is (a z c). Then the 
walk*ed values of each value in the list are 
used to create a new list. 



What is the value of 
(walkf x 

((y . (z w c)) (x . y) (z . a))) 


(a w c). 

The walked value of a; is (z w c). Then 
the walk*ed values of each value in the list 
are used to create a new list. 






What is the value of 


(walkf y 

((y . (w z c)) ( v . b) (x . v) (z . x ))) 


(w b c). 

The walked value of y is (w z c). Then 
the walk*ed values of each value in the list 
are used to create a new list. 


Here is walk*. Yes, and it’s also useful. t 


^ Here is project (pronounced “proh-ject”). 

(deflne-syntax project 
(syntax-rules () 

((- (*--.) J ••) 

(A g ( s ) 

(let ((x (walk* x s)) ...) 

((alls...) «)))))) 

where A c (see appendix) is just lambda, project is 
syntactically like fresh, but it binds diffferent values to the 
lexical variables, project binds walk*ed values, whereas 
fresh binds variables using var. For example, the value of 

(run" (9) 

(= »t 9) 

(project (9) 

(= (not (not 9)) 9))) 

is (#0; without projecting q, its value would be (), since q , 
which is represented using a vector (frame 6), is considered 
to be nonfalse when passed as an argument to not. 


(define walk* 

(lambda (v a) 

(let ((v (walk v s))) 
(cond 

((var? v ) w) 

((pair? v) 

(cons 

(walk? (car v) s) 
(walk* (edr v) s))) 
(else v))))) 

Is walk* recursive? 


•2 S 

How does walk* differ from walk if its first It doesn’t. 

argument is a fresh variable? If v is a fresh variable, then only the first 

cond line of walk* is ever considered. 
Thus walk and walk* behave the same if v 
is fresh. 


. - . , . . . .. ... .... 4 | ... ^ . 

How does walk * differ from walk if its first If its first argument is nonfresh, then the 

argument is a nonfresh variable? second cond line of walk* must be 

considered. Then, if the walked v is a pair, 
walk* constructs a new pair of the walk* of 
each value in whereas the walked value is 
just v. Finally, if the walked value is not a 
pair, then walk and walk * behave the same. 


What property holds with a variable that has We know that if the walked variable is itself 
been walked? a variable, then it must be fresh. 







What property holds with a value that has 
been walk*ed? 
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We know that any variable that appears in 
the resultant value must be fresh. 


Here is the definition of reify-s, whose first 
argument is assumed to have been walk*ed 
and whose second argument starts out as 
empty-s. The result of an invocation of 
reify-s is called a reified-name substitution. 

(define reify-s 
(lambda (u s) 

(let ((v (walk v s))) 

(cond 
(( var? v) 

(ext-s v (reify-name ( size-s s)) s)) 
((pair? v) (reify-s (cdr v) 

(reify-s (car v) s))) 

(else s))))) 

Describe (reify-s v empty-s). 


(reify-s v empty-s) returns a reified-name 
substitution in which each variable in v is 
associated with its reified name.* 


1 Hero is reify-name. 

(define reify-name 
(lambda (n) 

( siring-* symbol 

(string-append " " (number-*string n))))) 

The functions string-* symbol, string-append, and 
number-*string are standard; and size-s is length, which is 
also standard. 


What is the value of 

(let ((r (w x y))) 

(walk* r (reify-s r empty-s))) 



What is the value of 

(let ((r ( walk * (x y z) empty-s))) 
(walk* r (reify-s r empty-s))) 



What is the value of 

(let ((r (u (v (w x) y) z))) 
(walk* r (reify-s r empty-s))) 



What is the value of 

(let ((s ((?/ . (z w c w)) (z . y) (z . a)))) 
(let ((r (walk* x s))) 

(walk* r (reify-s r empty-s)))) 


-o C -o), 

since r’s fresh variable w is replaced by the 
reified name _ 0 (see frame 45). 








If eveiy nonfresh variable has been removed 7 We know that there are no variables in the 
from a value and every fresh variable has resultant value, 

been replaced by a reified name, what do we 
know? 


Consider the definition of reify, where it is 
assumed that its only argument has been 
walk*ed. 


(define reify 
(lambda (v) 

(walk* v (reify-s v empty-s)))) 

What is the value of 

(let ((5 ((y . (z w c w)) (x . y) (z . a)))) 
(reify (walk* x s))) 


-0 ^ -o) > 

since this is just a restatement of frame 56. 
Within run, (reify (walk* x s)) transforms 
the value associated with x by first 
removing all nonfresh variables. This is 
done by (walk* x s). which returns a value 
whose variables are fresh. The call to reify 
then transforms the walk*ed value, 
replacing each fresh variable with its 
reified name. 


Here are ext-s'/, a new way to extend a We use ext-s'Z where we used ext-s in unify, 

substitution, and occurs'/ , which it uses. so here is the definition of unify'/. 


(define ext-s'Z 


(define unify'/ 

(lambda (x v s ) 


(lambda (v w s ) 

(cond 


(let ((v (walk v s)) 

((occurs'/ x v s) #f) 


(w (walk w s))) 

(else (ext-s x v s))))) 


(cond 



((eq? v w) s) 

(define occurs'/ 


((var? v) (ext-s'/ v w s)) 

(lambda (x v s) 


((var? w) (ext-s'/ w v s)) 

(let ((v (walk v s))) 


((and (pair? v) (pair? ur)) 

(cond 


(cond 

((var? v) (eq? v x)) 


((unify'/ (car v) (car w) s) => 

((pair? v) 


(lambda (s) 

(or 


(unify'/ (edr v) (edr w) s))) 

( occurs'Z x (car v) s) 


(else #f))) 

(occurs'/ x (edr v) s))) 


((equal? v w) s) 

(else #f))))) 


(else #f))))) 


Where might, we want to use ext-s'Z 








Why might we want to use ext-s^ 


Because we might want to avoid creating a 
circular substitution that if passed to walk * 
might lead to no value. 


What is the value of 


(run 1 (x) 

(= (x) x)) 



It has no value. 


What is the value of 

(run 1 ( q) 

(fresh (x) 

(= (x) x) 

(= q))) 



Although the substitution is circular, x is 
not reached by the walk* of q from within 

run. 


What is the value of 

(run 1 (q) 

(fresh (x y) 

{= ( x ) y) 

(= (l/) x) 

(= #t q))) 



(#t). 

Although the substitution is circular, 
neither x nor y is reached by the walk* of q 
from within run. 


What is the value of 





1 

where is the same as =, except that it 
relies on unify^ instead of unify. 1 



Here is 



(define = ^ 

(lambda (v w) 

(Ac (•) 

(cond 

((unifyv tv s) => #s) 

(else (#u s)))))) 

where #s and #u are defined in the appendix, and A c is just 

lambda. 






What is the value of 


It has no value. 


(run 1 (x) 

(fresh (y z) 

(= * z) 

(= (a b z) y) 
(= x y))) 
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What is the value of (). 

(run 1 ( x ) 

(fresh (y z) 

(= x z) 

(= (a b z) y) 

(=v x y))) 
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What is the substitution when (=^ x y) fails ((y ■ (a b z)) ( z . x)). 
in the previous frame? (= x/ x y) fails because 

( occurs^ x y ((y . (a b z)) ( z . x))) 
returns #t. occurs^ first finds y' s 
association, (a b z). occurs^ then searches 
(a b z) and at each step makes sure that 
the rhs is walked if it is a variable. When z 
is walked, walk returns the fresh variable 
z, which means that we have an occurrence 
of x in y. 


When should we use 


When we want to avoid creating a circular 
(frame 61) substitution. 


So, why indeed does 


(run 1 (x) 


(x) x)) 


have no value? 


It has no value because run uses walk* (see 
frame 58) on x and the circular substitution. 
This call of walk *, however, has no value. 


What is the substitution generated by 
(run 1 (x) 

(= (z) z)) 
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((x . (x))), which is a circular substitution. 









The end, sort of. Time for vacation. 



This space reserved for 
PALM TREES! 







Does 


(cond a 
(#u #s) 
(else #u)) 

succeed ?* 


1 No, 

because the question of the first cond a 
line is the goal #u, so cond a tries the 
second line. 


^ cond a is written conda and is pronounced “con-day". 
cond a is like the so-called soft-cut (also known as 
if-then-else) and is described on page 45 of William F. 
Cloclcsin. Clause and Effect. Spririg€>r, 1997. 


Does 

(cond® 

(#u #s) 

(else #s)) 

succeed? 

2 Yes, 

because the question of the first cond a 
line is the goal #u, so cond' 1 tries the 
second line. 

Does 

(cond® 

(#s #u) 

(else #s)) 

succeed? 

3 No, 

because the question of the first cond a 
line is the goal #s, so cond® tries the 
answer of the first line. 

Does 

(cond a 
(#s #s) 

(else #u)) 

succeed? 

4 Yes, 

because the question of the first cond' 1 
line is the goal #s, so cond® tries the 
answer of the first line. 

What is the value of 

(run* (x) 

(cond a 

((= olive x) #s) 

((= oil x) #s) 

(else #u))) 

(olive), 

because (= olive x) succeeds; therefore, the 
answer of the first cond® line is #s. The #s 
preserves the association of x to olive. 


The Law of condo 

If the question of a condo line succeeds, pretend that the remaining cond" lines have been 
replaced by a single (else #u). 


What does the “a” stand for in cond" 



What is the value of 

(run* (x) 

(cond a 

((= virgin x) #u) 
((= olive x) #s) 
((= oil x) #s) 
(else #u))) 


What is the value of 

(run* (q) 

(fresh (x y) 

(= split x) 

(= pea y) 

(cond® 

((= split x) (= x y)) 
(else #s))) 

(= #t q)) 


What value is associated with q in 

(run* {q) 

(fresh (x y) 

(= split x) 

(= pea y ) 

(cond® 

x y) (= split x)) 

(else #s))) 

(EE #t q)) 



It stands for a single line , since at most a 
single line can succeed. 


0 , 

because (= virgin x) succeeds, but the 
answer of the first cond® line fails. We 
cannot pretend that (= virgin x) fails 
because we are within neither a cond® nor 
a cond*. 


0 

(= split x) succeeds, since x is already 
associated with split. (= x y) fails, 
however, since x and y are associated with 
different values. 


#t. 

(= x y) fails, since x and y are associated 
with different values. The question of the 
first cond“ line fails, therefore we try the 
second cond® line, which succeeds. 
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Why does the value change when we switch 
the order of (= split x) and (= x y) within 
the (irst cond a line? 


Because only if the question of a cond a line 
fails do we consider the remaining cond a 
lines. If the question succeeds, it is as if the 
remaining cond" lines have been replaced by 
a single (else #u). 


Consider the definition of not-pasta°. 



What is the value of 
(run* (x) 

(cond a 

(( not-pasta° x) #u) 
(else (= spaghetti x)))) 


(spaghetti), 

because x starts out fresh, but the 
question ( not-pasta° x) associates x with 
pasta, but then fails. Since (not-pasta° x) 
fails, we try (= spaghetti x). 


Then, what is the value of 

(run* (x) 

(= spaghetti x) 

(cond a 

((not-pasta° x) #u) 
(else (= spaghetti x)))) 



because ( not-pasta° x) succeeds, which 
shows the risks involved when using 
cond ft . We can’t allow a fresh variable to 
become nonfresh as part of a cond a 
question. 


The Third Commandment 

If prior to determining the question of a condo line a variable is fresh, it must remain fresh in 
the question of that line. 




Wliat is the value of 
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(run* (?) 

(cond“ 

(always 0 #s) 
(else #u)) 

(= « ?)) 


It has no value, 

since run* never finishes building the list 
of #t’s. 


What is the value of r 
(run* ( q) 

(cond 11 
(always ° #s) 

(else #u)) 

(= « ?)) 

,J («), 

because cond w is like cond a , except that 
the successful question, here always 0 , 
succeeds only once. 

^ cond 14 is written condu and is pronounced “cond-you”. 
cond’ 4 corresponds to committed-choice of Mercury 
(so-called “once”), which is described in Fergus Henderson, 
Thomas Conway, Zoltan Somogyi, and David Jeffery. “The 
Mercury language reference manual.” University of 

Melbourne Technical Report 96/10, 1996. Mercury was the 
first language to effectively combine and extensively use 
soft-cuts (frame 1) and committed choice, avoiding the cut of 
Prolog. See Lee Naish. '‘Pruning in logic programming." 
University of Melbourne Technical Report 95/16. 1995. 


What is the value of 

(run* (q) 

(cond u 
(#s always 0 ) 

(else #u)) 

(= #t q)) 

It has no value, 

since run* never finishes building the list 
of #t’s. 

What docs the “u” stand for in cond u 

It stands for uni-, because the successful 
question of a cond ' 1 line succeeds only once. 





What is the value of 
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It has no value, since always 0 keeps 
succeeding after the outer #u fails. 


(run 1 (<7) 
(cond a 


( always° #s) 
(else #u)) 


#u 


#t q)) 


What is the value of 

(run 1 ( q) 

(cond u 
( always° #s) 
(else #u)) 

#u 

(= « q)) 


because cond u ’s successful question 
succeeds only once. 


The Law of condo 

cond behaves like cond°, except that a successful question succeeds only once. 



Here is once°. 

(define once° 
(lambda ( g ) 
(cond u 

(g #s) 

(else #u)))) 


(tea). 

The first cond e line of teacup 0 succeeds. 
Since once°’s goal can succeed only once, 
there are no more values. But, this breaks 

The Third Commandment. 


What is the value of 


(run* (s) 

(once° ( teacup 0 z))) 







What is the value of 
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(run 1 ( 9 ) 

( once° (sal" never 0 )) 

#u) 


0 

The first cond e line of sal° succeeds. This 
is followed by #u, which fails. Since once 0 's 
goal can succeed only once, this avoids 
never so the run fails. This use of once° 
obeys The Third Commandment. 


What is the value of 

(run* (r) 

(cond e 

((teacup ° r) #s) 
((= #f r) #s) 
(else #u))) 



(tea cup #f). 


What is the value of 


(run* (r) 
(cond a 


((teacup 0 r) #s) 
#f r) #s) 
(else #u))) 




(tea cup), 

breaking The Third Commandment. 


And, what is the value of 

(run* (r) 

(= #f r) 

(cond a 

((teacup 0 r) #s) 
((= #f r) #s) 

(else #u))) 



(# 0 , 

since this value is included in frame 21. 


Wliat is the value of 

(run* (r) 

(= #f r) 

(cond“ 

((teacup 0 r) #s) 
((= #f r) #s) 
(else #u))) 


cond a and cond u often lead to fewer 
values than a similar expression that uses 
cond e . Knowing that helps determine 
whether to use cond° or cond u , or the 
more general cond e or cond*. 







Let’s do a bit more arithmetic. 
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Okay. 


Here is bump°. 


2G 


(define btimp° 
(lambda (n x ) 
(cond e 

n x ) #s) 



(else 


(fresh (m) 

n (1) m) 

( bump 0 m re)))))) 


((in) 

(Oil) 
(10 1 ) 
(0 0 1 ) 

( 11 ) 
(0 1 ) 

( 1 ) 

())• 


What is the value of 


(run* (x) 

( bump° (1 1 1) z)) 


Here is gen&test°. 

(define gen&test° 
(lambda (op i j k) 
(once ° 

(fresh (x y z ) 
(op x y z) 

(= i x) 

(= 3 y) 

(= k *))))) 



#t , 

because four plus three is seven, but there 
is more. 


What value is associated with q in 


(run* (q) 

(gen&test° +° (0 0 1) (1 1) (1 1 1)) 

(= #t q)) 


What values are associated with x, y, and z 
after the call to (op x y 2 ), where op is +° 



- 0 , (), and , respectively. 







What happens next? 


(= i x) succeeds, 

since i is associated with (0 0 1) and x is 
fresh. As a result, x is associated with 

(0 0 1 ). 


What happens after (= i x) succeeds? 


(= j y) fails, 

since j is associated with (11) and y is 
associated with (). 


What happens after (= j y) fails? 


(op x y z) is tried again, and this time 
associates x with (), and both y and z with 

(-o • -i ) • 


What happens next? 


(= i x) fails, 

since i is still associated with (0 0 1) and x 
is associated with (). 


What happens after (= i x) fails? 


(op x y z ) is tried again and this tune 
associates both x and y with (1), and z with 
(0 1 ). 


What happens next? 


(= i x) fails, 

since i is still associated with (0 0 1) and x 
is associated with (1). 


35 

What happens the eighty-second time that (op x y z) associates both x and 2 with 

(op x y z) is called? (0 0^ . ), and y with (11). 


What happens next? 


(= i x) succeeds. 

associating x, and therefore z, with 

(0 0 1 ). 


What happens after (= i x ) succeeds? 
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(= j y ) succeeds, 

since both j and y are associated with 

(i i). 


What happens after (= j y) succeeds? 



(= k z) succeeds, 

since both k and z are associated with 



What values are associated with x, y, and z x, y, and z are not associated with any 
after the call to (op x y z) is made in the values, since they are fresh, 

body of gen&test° 


What is the value of 
(run 1 ( q ) 

(gen&test° +° (0 0 1) (1 1) (0 1 1))) 



It has no value. 
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Can (op x y z) fail when x, y, and z arc Never, 

fresh? 


Why doesn’t 
(run 1 (?) 

(gen&test° +° (0 0 1) (1 1) (0 1 1))) 
have a value? 


(op x y z) gene rates various associations for 
x y , and z, and then tests (= i x), (= j y), 
and (= k z) if the given triple of values i, j, 
and k is present among the generated triple 
x , y. and z. All the generated triples x, y, 
and 2 satisfy, by definition, the relation op, 
+° in our case. If the triple of values i, j, 
and k is so chosen that i + j is not equal to 
k, and our definition of +° is correct, then 
that triple of values cannot be found among 
those generated by +°. (op x y z) will 
continue to generate associations, and the 
tests (= i x), (= j y), and (= k z ) will 
continue to reject them. So this run 1 
expression will have no value. 



Here is enumerate 0 . 

(define enumerate 0 
(lambda (op r n ) 

(fresh ( i j k) 

(bump° n i) 

( bump° n j) 

(op i j k) 

(gen&test 0 op i j k) 

(= (< J k) r)))) 

What is the value of 
(run* (s) 

( enumerate° +° s (1 1))) 


(((11) (1 1) (Oil)) 
(( 11 ) (0 1 ) (10 1 )) 
(( 11 ) ( 1 ) (0 0 1 )) 

(( 11 ) 0 ( 11 )) 

((0 1 ) (1 1 ) (1 0 1 )) 

((0 1 ) (0 1 ) (0 0 1 )) 

((0 1) (1) (1 1)) 

((0 1) 0 (0 l)) 

(( 1 ) ( 11 ) (0 0 1 )) 

(( 1 ) (0 1 ) (1 1 )) 
(( 1 ) ( 1 ) (0 1 )) 

(( 1 ) 0 ( 1 )) 

(0 ( 11 ) ( 11 )) 

(0 (o i) (o i)) 

(0 (i) (i)) 

(0 0 ()))• 
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Describe the values in the previous frame. The values are arranged into four groups of 

four values. Within the first group, the first 
value is always (11); within the second 
group, the first value is always (0 1); etc. 
Then, within each group, the second value 
ranges from (1 1) to (), consecutively. And 
the third value, of course, is the sum of first 
two values. 


What is true about the value in frame 43? 


It appears to contain all triples (i j k ) where 
? + j = k with i and j ranging from () to 
(1 !)• 


All such triples? 



It seems so. 


Can we be certain without counting and 
analyzing the values? Can we be sure just by 
looking at the values? 
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That’s confusing. 







Okay, suppose one of the triples were 
missing. For example, suppose 
((0 1) (1 1) (1 0 1)) were missing. 


But how could that be? We know 
( bump° 77. i) associates i with the numbers 
within the range () through n. So if we try it 
enough times, we eventually get all such 
numbers. The same is true for ( bump ° n j). 
So, we definitely will determine (op i j k ) 
when i is (0 1) and j is (1 1), which will 
then associate k with (1 0 1). We have 

already seen that. 


Then what happens? 


Then we will try to find if 
( gen&test° +° i j k) can succeed, where i is 

(0 1), j is (1 1), and k is (1 0 1). 


At least once? Yes, 

since we are interested in only one value. 
We first determine (op x y z ), where x, y, 
and z are fresh. Then we see if that result 

matches ((0 1) (1 1) (1 0 1)). If not, we 
try (op x y z) again, and again. 


What if such a triple were found? Then gen&test° would succeed, producing 

the triple as the result of enumerate 0 . Then, 
because the fresh expression in gen&test° is 
wrapped in a once°, we would pick a new 
pair of i-j values, etc. 


What if we were unable to find such a triple? 


Then the run expression would have no 
value. 


Why would it have no value? 


If no result of (op x y z) matches the desired 
triple, then, as in frame 40, we would keep 
trying (op x y z) forever. 







So can we say that 
(run* (s) 

( enumerate° +° s (1 1))) 


Yes, that’s clear. 

If one triple were missing, we would have 
no value at all! 


produces all such triples (i j k) where 
i + j = k with i and j ranging from () 
through (1 1), just by glancing at the value? 


So what does enumerate 0 determine? 


It determines that (op x y z) with x, y, and 
2 being fresh eventually generates all triples 
where x + y = z. At least, enumerate 0 
determines that for numbers x and y being 
() through some n. 
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What is the value of (((1 1 1) (1 1 1) (0 1 1 1))). 

(run 1 (s) 

( enumerate° +° s (1 1 1))) 


How does this definition of gen-adder 0 differ The definition in chapter 7 has an all', 
from the one in 7:118? whereas this definition uses all. 

(define gen-adder° 

(lambda (d n m r) 

(fresh (a b c e x y z) 

(= (a . x) n) 

(= (b . y) m) (pos° y) 

(= (c . z) r) ( pos° z) 

(all 

(full-adder 0 d a b c e) 

(adder 0 e x y 2 ))))) 


What is the value of 
(run 1 (q) 

(gen&test° +° (0 1) (1 1) (1 0 1))) 



It has no value. 


using the second definition of gen-adder 0 
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Why doesn’t 
(run 1 (q) 

( gen&test° +° (0 1) (1 1) (1 0 1))) 

have a value? 


When using all instead of all 1 , things can get 
stuck. 
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Where does the second definition of If a, b, c, d, x, y, and z are all fresh, then 

gen-adder° get stuck? ( full-adder° d a b c e) finds such bits where 

d+a+6=c+ 2 • e and (adder 0 e x y z) will 
find the rest of the numbers. But there are 
several ways to solve this equation. For 
example, both 04-0 + 0 = 0 + 2- 0 and 
0 + 1 + 0= 1 + 2- 0 work. Because 
(adder 0 e x y z) keeps generating new x, y, 
and z forever, we never get a chance to 
explore other values. Because 
(fidl-adder 0 d a b c e) is within an all, not 
an all 1 , the (full-adder 0 d a b c e) gets stuck 

on its first value. 


Good. Let’s see if it is true. Redo the effort 
of frame 103 and frame 115 but using the 
second definition of gen-adder°. What do we 
discover? 


Some things are missing like 
(( 1 ) ( 110 ,..,) (0 0 1 ,..,)) 
and ((0 1) (1 1) (1 0 1)). 


If something is missing because we are using 
the second definition of gen-adder 0 , can we 
predict the value of 



Of course, we know that it has no value. 


(run* (q) 

(enumerate 0 +° q (1 1 1))) 


Can log° and +° also be enumerated? 



Yes, of course. 



Get ready to connect the wires. 










A goal g is a function that maps a substitution s to an ordered sequence s°° of zero or more 
substitutions. (For clarity, we notate lambda as A, when creating such a function g.) Because 
the sequence of substitutions may be infinite, we represent it not as a list but a stream. 

Streams contain either zero, one, or more substitutions.' We use (mzero) to represent the 
empty stream of substitutions. For example, #u maps every substitution to (mzero). If a is a 
substitution, then (unit a) represents the stream containing just a. For instance, #s maps every 
substitution s to just (unit s). The goal created by an invocation of the operator maps a 
substitution s to either (mzero) or to a stream containing a single (possibly extended) 
substitution, depending on whether that goal fails or succeeds. To represent a stream containing 
multiple substitutions, we use (choice a f ), where a is the first substitution in the stream, and 
where f is a function of zero arguments. Invoking the function f produces the remainder of the 
stream, which may or may not be empty. (For clarity, we notate lambda as AF when creating 
such a function f.) 

When we use the variable a rather than s for substitutions, it is to emphasize that this 







representation of streams works for other kinds of data, as long as a datum is never #f or a pair 
whose cdr is a function in other words, as long as the three cases above are never represented in 
overlapping ways. To discriminate among the cases we define the macro case-. 

The second case is redundant in this representation: (unit a) can be represented as (choice a 
('F () #f)). We include unit, which avoids building and taking apart pairs and invoking 
functions, because many goals never return multiple substitutions, run converts a stream of 
substitutions s°° to a list of values using map-. 

Two streams can be merged either by concatenating them using mplus (also known as 
streamappend) or by interleaving them using mplusi. The only difference between the 
definitions mplus and mplusi lies in the recursive case: mplusi swaps the two streams; mplus 
does not. 

Given a stream s°° and a goal g. we can feed each value in s° to the goal g to get a new 

stream, then merge all these new streams together using either mplus or rnplus'. When using 

mplus. this operation is called monadic2 bind, and it is used to implement the conjunction all. 
When using mplus', this operation is called bind, and it is used to implement the fair 
conjunction all'. The operators all and all' are like and, since they are short-circuiting: the false 
value short-circuits and, and any failed goal short-circuits all and all'. Also, the let in the third 
clause of all-aux ensures that (all e), (all' c), (all e #s), and (all' c #s) are equivalent to e, even if 
the expression e has no value. The addition of the superfluous second clause allows all-aux 
expressions to expand to simpler code. 

To take the disjunction of goals we define conde, and to take the fair disjunction we define 
cond. They combine successive question-answer lines using mplus and mplus', respectively. 
Two stranger kinds of disjunction are condo and cond. When a question go succeeds, both 
condo, and condo, skip the remaining lines. However, condo, chops off every substitution after 
the first produced by go, whereas condo, leaves the stream produced by go intact. 





(define-syntax run 
(syntax-rules () 

((-«(*) 9 •••) 

(let ((n n) (x (uarx))) 

(if (or (not n) (> n 0)) 


6,13,47,58 


( 77i ap 


n 


(lambda (s) 

(reify (walk* x s))) 

((all g ...) empty-s)) 

()))))) 

(define-syntax case"' 

(syntax-rules () 

((_ e on-zero ((a) on-one) ((a /) on-choice)) 
(let ((o°° «)) 

(cond 


((not a ) on-zero) 
{{not (and 


{pair? a ) 

{procedure? (cdr a °°)))) 


(let ((d a )) 
on-one)) 

(else (let ((a (car a 00 )) (/ (cdr a 00 ))) 

on-c/ioice))))))) 


(define-syntax mzero 
(syntax-rules () 

((-) # 0 )) 

(define-syntax unit 
(syntax-rules () 

((- a) a))) 

(define-syntax choice 
(syntax-rules () 

((- of) (cons a/)))) 

(define map ^ 

(lambda (n p a°°) 

/ oo oo 

(case a 

o 

((«) 

{cons (p a) ())) 

((«/) 

(cons (p a) 

(cond 


((not n) (map 00 n p (/))) 


((> n 1) (map 

(else ()))))))) 


» 1) P (/))) 


(define #s (A G (s) (unit s))) 


(define #u (A c (s) (mzero))) 


(define = 

(lambda {v w) 

(Ac (*) 

(cond 


{(unify v w s) = 

(else (#u .)))))) 


#s) 


(define-syntax fresh 
(syntax-rules () 

((-(*•••)</ ) 

(Ac (*) 


9:27,36 


(let ((x {var x)) ... ) 

((all*...)*)))))) 

(define-syntax cond f 
(syntax-rules () 

((_ c ,..) (cond-aux if e c .,.)))) 


(define-syntax all 
(syntax-rules () 

((_ g ...) (all-aux bind g ...)))) 


(define-syntax all 1 
(syntax-rules () 

((. g ...) (all-aux bind 


• • 


)))) 


(define-syntax cond 1 
(syntax-rules () 

((_ c ...) (cond-aux if 1 


••)))) 


(define-syntax cond* 
(syntax-rules () 

((_ c ...) (cond-aux if a 


• )))) 


(define-syntax cond' 1 
(syntax-rules () 


((_ c ...) (cond-aux if 11 c ...)))) 
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Our main assumption is that you understand the first eight chapters of The Little Schemer'. 

Streams contain either zero, one, or more substitutions.' 

Given a stream s°° and a goal g. we can feed each value in s° to the goal g to get a new stream. 

the 




















